Hi Everyone,

I have a script that I think is not working correctly because I have hidden workbooks, When the script starts it appears to run 6 times on the first visible sheet before it moves onto the next visible worksheet. I do have 5 hidden worksheets and 5 visible.

So how can I change this script to not look at my hidden workbooks if that is the case?

And one other thing why dosn't the Wks.select not work for this type of script?

Thank You for your help and advice as always!!!

Mike

Sub Delete5()

    Dim Wks As Worksheet
    For Each Wks In Worksheets
    
    Wks.Activate
                'Wks.Select
                'Sheets.Select
    
    Rows("1:3").Select
    Selection.delete Shift:=xlUp
    
    Next Wks
  
End Sub