Dear Paul,

Thank you for your hint, I made some test in the past and used a couple of commands for delay or wait until keypress, but I failed.
For instance - when I used the MsgBox statement, the aplication update nothing until I press the key...

for refresh I used :

Application.Calculation = xlManual
mustek.RefreshAll
Application.Calculation = xlAutomatic


and then :

Application.Wait (Now + TimeValue("0:00:20"))


or : MsgBox "Akualizce", vbOKOnly

If I debug the application (Step Into) the data are refreshed correctly, and I am not able to make a "step forward" until the data are refreshed completely.
Do you have any idea?

Thanks!
Jirik