Dim i as long, numrows as Long
numRows = 10000
for i = 1 to numrows
' code to process row
if i mod 100 = 0 then
Application.StatusBar = i & " rows processed"
end if
Next
Application.StatusBar = True

--
Regards,
Tom Ogilvy

"M." wrote in message
...
I'd like to show (like progres bar show ) msg in status bar how many rows
was procesed!

I need some suggestion!

Milos