Yes, i was declered:
Private Sub CommandButton1_Click()
'
Dim i As Long
Dim oldStatusBar As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True 'here program execution stoped!!!
Application.StatusBar = "Please be patient..."

For i = 1 To 10000
'

Next i


Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
"Ronald Dodge" wrote in message
...
Did you declare your variable as a String variable? The StatusBar
property
on the Application is in String Data Type. If the Statusbar is = "FALSE"
then Excel has control of the statusbar.

--
Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
"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

I'm using Excel 97!

Regards,

Milos


"M." wrote in message
...
Yes, i was declered:
Private Sub CommandButton1_Click()
'
Dim i As Long
Dim oldStatusBar As String
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True 'here program execution
stoped!!!
Application.StatusBar = "Please be patient..."

For i = 1 To 10000
'

Next i


Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
"Ronald Dodge" wrote in message
...
Did you declare your variable as a String variable? The StatusBar
property
on the Application is in String Data Type. If the Statusbar is =
"FALSE"
then Excel has control of the statusbar.

--
Ronald R. Dodge, Jr.
Production Statistician
Master MOUS 2000
"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