Renaming Multiple Tabs

  • Thread starter Thread starter britt@wjg
  • Start date Start date
B

britt@wjg

I need to rename many tabs quickly and numberically (1, 2, 3, etc.). Is there
a faster way than just right-clicking and renaming each worksheet?
 
Run this macro
Sub RenameTabs()
For i = 1 To Sheets.Count
Sheets(i).Name = i
Next
End Sub
 
Back
Top