Yes, yes, yes, that's right!!!
Tom, thank's for your time!

Regards,
Milos
"Tom Ogilvy" wrote in message
...
Your code ran fine for me in XL2000. If you are using Excel 97, one
possibility is to Change the TakeFocusOnClick property of the
CommandButton
to false.

--
Regards,
Tom Ogilvy

"M." wrote in message
...
I was put command button on sheet and wrote following code:

Private Sub CommandButton1_Click()
'
Dim i As Long
Application.StatusBar = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True '*** my program stoped her

For i = 1 To 10000
'
Application.StatusBar = CStr(i) & "of" & "10000"
Next i
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub

Where did i make mistake? I was copied code from online help about
displaying status bar msg!

Regards

Milos