Renaming a tab

[sujan7788]

Hi i have 10 tabs that starts from "prod_xxx_F1" , "prod_xxx_F2", ... so on.
How is there a way to keep F1, F2,... by deleting others.

Thanks

 

[offthelip]

try this:

Sub test()
For i = 1 To Worksheets.Count
 With Worksheets(i)
  nam = .Name
  If Left(nam, 9) = "prod_xxx_" Then
   .Name = Mid(nam, 10)
  End If
 End With
Next i

End Sub

 

[sujan7788]

It worked Perfectly.
Great Great Great.
tHANKS

 

[jolivanes]

If the number of characters between the underscores can differ

Sub Another_Possibility()
Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If Left(sh.Name, 4) = "prod" Then sh.Name = Mid(sh.Name, InStrRev(sh.Name, "_") + 1)
    Next sh
End Sub