The DoEvents did the trick. Thanks!

"Tom Ogilvy" wrote:

Perhaps

For i = 1 To LastRow
lblStatus.Caption = i & " of " & LastRow
frmStatus.Repaint
doevents
...the rest of the loop
Next i

--
Regards,
Tom Ogilvy


"ybazizi" wrote in message
...
I have a label on a form that I use to show the progress of a loop. It
works
great except if I change the focus to a different application and then
return
to excel. Doing so freezes the label where it was when I changed the
focus.
Is there a to get the form to start refreshing again?

Thanks


For i = 1 To LastRow
lblStatus.Caption = i & " of " & LastRow
frmStatus.Repaint
...the rest of the loop
Next i