egris52788
Board Regular
- Joined
- Mar 6, 2003
- Messages
- 114
How do I get this sheet tab naming macro to avoid hidden sheets. I want it to only name the unhidden sheets?
Sub NameSheetss()
Dim I As Long
Dim ws As Worksheet
I = 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet Names" Then ws.Name = Sheets("Sheet Names").Cells(I, 1)
I = I + 1
Next ws
End Sub
Sub NameSheetss()
Dim I As Long
Dim ws As Worksheet
I = 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet Names" Then ws.Name = Sheets("Sheet Names").Cells(I, 1)
I = I + 1
Next ws
End Sub