** How do I change the name of a worksheet (on tab) to only the left 6 numbers in the name? **

[brad7989]

I have tabs that come in with a 6 digit number and then some other stuff after it and want my formatting macro to remove all of the extra stuff off of the name down there.

Thanks for your help!

 

[Sthrncali]

So your worksheet name is:

123456somethingelse

and you want it renamed to 123456??


If so:

Sub RenameSheets()
Dim wsName As String
For Each ws In Worksheets
If ws.Name Like "123456*" Then
wsName = ws.Name
wsName = Left(wsName, 6)
ws.Name = wsName
End If
Next
End Sub

 

[Rick Rothstein]

Sub RenameSheets()
Dim wsName As String
For Each ws In Worksheets
[COLOR=darkred]If ws.Name Like "123456*" Then[/COLOR]
wsName = ws.Name
wsName = Left(wsName, 6)
ws.Name = wsName
End If
Next
End Sub

I think the highlighted line of code above should be this instead...

If ws.Name Like "######*" Then

 

[brad7989]

Works great- thanks guys!