Display Active Worksheet

[wmtsub]

My workbook can have hundreds of worksheets. I have a macro that wil loop thru them , activate each sheet, perform a funtion and then move to the next.
At times i can not always tell if it is runnng or hung up. How can i display a warning like "active Work sheet is (Sheet name)" and have it change as the focus changes so I can see that it is progressing? Kinda like a "msgbox" but not requiring an input.

 

[jmacleary]

Hi there. There are 2 ways to achieve this, either by using a userform or the status bar at the bottom. There are several examples on this forum, just put progress indicator into the search field.

 

[My Aswer Is This]

The reason your script may be running slow is your activating all your sheets.


In most cases you do not need to activate your sheets.

This sample script will put values in all the sheets in your Workbook without activating any sheets.

Sub Change_Value_All_My_Sheets()
'Modified 11/26/2018 9:57:52 AM  EST
Application.ScreenUpdating = False
Dim i As Long
For i = 1 To Sheets.Count
    With Sheets(i)
        .Cells(1, 1).Value = "Me"
        .Cells(1, 5).Value = "You"
    End With
Next
Application.ScreenUpdating = True
End Sub

 

[wmtsub]

I did try without activating the sheets but it does not work.

 

[My Aswer Is This]

I did try without activating the sheets but it does not work.

To help you we would need to see what script your trying to run.

All you said was:

perform a function ​