Display worksheet name in statusbar

[Mann750]

Hi,

I was wondering if there was a way to display the name of the sheet a macro is working on in the status bar once the macro has been completed.

I have 4 worksheets the macro runs through and would like to update the user as each worksheet is done.

I tried using:

Dim wsname As Worksheet
Dim wsn As String
 
wsn = wsname.Name
 
Application.StatusBar = "& wsn & worksheet complete, please wait for others to be completed"

Many thanks in advance for your help!!!

 

[VoG]

You would need to place that in a loop that processes the sheets. Also use

Application.StatusBar=False

when you are done.

 

[Andrew Poulsom]

It would be:

Application.StatusBar = wsn & " worksheet complete, please wait for others to be completed"

 

[Darren Bartrup]

You've put the variable name within the string.

Try something like:

Sub test()

    Dim wrkSht As Worksheet
    
    For Each wrkSht In Worksheets
        Application.StatusBar = wrkSht.Name & " worksheet complete, please wait for others."
    Next wrkSht

End Sub

 

[Mann750]

Apologies for the delay but many thanks for your replies. Both Andrew and Darren's code works fine so thank you very much for your help )