Renaming Multiple Tabs

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

 

[Sheeloo]

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