VBA Coding - Deleting 1st character from the right for all the tab names within a worksheet

[peter8848]

Dear All,

I am trying to get a VBA code as one spreadsheet from system and this worksheet always has a "1" from right on each tab name within worksheet, Just wondering what could be the coding to remove the 1st character from the right - "1" from each tab name within the worksheet? thanks

Peter

 

[Fluff]

In that case how about

Sub peter()
   Dim Ws As Worksheet
   For Each Ws In Worksheets
      Ws.Name = Replace(Ws.Name, "1", "")
   Next Ws
End Sub

 

[peter8848]

Hi Fluff, thanks a lot it works!

 

[Fluff]

Glad we could help & thanks for the feedback.