Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
Sub WorksheetLoop()
Dim I As Integer
Dim worksheetName As String
Dim sheet As Worksheet
I = 1
For Each sheet In ActiveWorkbook.Worksheets
worksheetName = "" & I & " - " & sheet.Name
sheet.Name = worksheetName
I = I + 1
Next sheet
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.