I made some sheets that used numbers (1,2,3,4,...). No additional characters in
the names.

Then this worked ok for me:

Option Explicit
Sub testme2()

Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Name = "XXXX_" & wks.Name
Next wks
For Each wks In ActiveWorkbook.Worksheets
wks.Name = Mid(wks.Name, 6, 255) + 1
Next wks

End Sub

If your names are consistently named, maybe you can use this idea. I prefixed
the names with XXXX_ to make them unique. If your names are already 31
characters long, then this idea won't work.

Nick Gilkes wrote:

All of the sheets in excel are at the moment all numbered the same using
code.
when i go to save i need the sheet numbers to increase by one each time.

could someone please tell me how i would do this?
would i use VB for aplications???

thanks

NICK

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

--

Dave Peterson