My workbook contains invoices with the first worksheet being the customer list. From the second worksheet on the worksheet names increment by one starting at 20001. I tried to make a macro that will do this automatically but there seems to be errors with my code:
The numbers are not consistently adding one to each invoice and I haven't figured out how to skip the first worksheet so that it remains named 'Customers'.Sub ChangeWorkSheetName() Dim WS As Worksheet i = 1 On Error Resume Next For Each WS In Worksheets WS.Name = "200" & i i = i + 1 Next End Sub
Can someone please help?
Thank you very much.
Bookmarks