Renaming Multiple Tabs

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?
 
S

Sheeloo

Run this macro
Sub RenameTabs()
For i = 1 To Sheets.Count
Sheets(i).Name = i
Next
End Sub
 
Top