One of the simpler ways would be to make use of statusbar.

E.g.

Sub StatusBar_demo()
Dim i As Long
For i = 1 To 1000
Cells(i, 1).Value = i 'put
Application.StatusBar = "Your Text Here (" & i & " of 1,00)"
Next i

Application.StatusBar = False 'reset the status bar
End Sub



On Jul 22, 6:11*pm, Asif wrote:
I am writing a code in which I am updating several files from a main data
sheet. I just want to show a progress message which would display the file
name being processed. I tried to use the "Msgbox " statement but it would
stop to code while being displayed, where I want the message to stay on while
the code being executed.

Any help to this will be much appreciated.

--
Thanx & regards,
Asif