Here is a link to another Excel site, I think it has what you are looking for
Here is a link from another site that has what you are looking for:
http://add-ins.com/macrosolutions.htm
Adam
As an alternative to splash screens, progress messages can be put in the status bar with code such as the following :-
Application.StatusBar = Working on doing something
Your code for doing something
Application.StatusBar = Working on doing something else
Your code for doing something else
Application.StatusBar = False
Also,if you have a long loop, you might like to show the progress of the loop on the status bar with something like this :-
Dim C as integer
Dim N as integer
'Determine number of items to process
C = Selection.Cells.Count
'Loop through each item
For N = 1 To C
'Load the status message on the status bar
Application.StatusBar = "Processing item " & N & " of " & C
Put your code for the action on each item here
Next N
'Remove status bar message
Application.StatusBar = False
Celia