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


"britt@wjg" wrote:

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?