Renaming Worksheets

[Nathaniel]

Sorry about this, I've seen a lot of people ask questions like this but I can't find one to do exactly what I want and was hoping you guys could help.

Sub nametab()
Dim s As String
Dim ss As String
s = ActiveWorkbook.Name
ss = Left(s, Len(s) - 4)
Sheets("Sheet1").Name = ss
End Sub

Is the code that I have been able to find which works fine for me, but I get sheets sent to me constantly where the sheet is called Sheet1, and other times its called Page1-1, and I having almost no experience with VB have no idea of what syntax or rules to follow to get "or" working in that 2nd last line.

So if anyone could show me what I need to rename both Sheet1 and Page1-1 to the filename that would be great.

Thanks,
Nathaniel

 

[JoeMo]

Try:

ActiveSheet.Name = ss

 

[CWatts]

I don't know much about VBA syntax, but can you use the LEFT function without the Worksheetfunction.left?

 

[Nathaniel]

Try:

ActiveSheet.Name = ss

Of course, so simple and I saw people using that in different much more complitcated (and much less complicated) scripts to rename the sheets and didn't think to try it.

Thanks heaps JoeMo.