Hi Max,

Try something like:

'=============
Public Sub Tester()
Dim WB As Workbook
Dim SH As Worksheet

Set WB = Workbooks("MyBook.xls") '<<==== CHANGE

For Each SH In WB.Worksheets
With SH
If UCase(.Name) Like "SHEET*" Then
.Name = Replace(.Name, "Sheet", _
vbNullString, 1, 1, vbTextCompare)
End If
End With
Next SH
End Sub
'<<=============


---
Regards,
Norman


"Max" wrote in message
...
Looking for a sub which can strip away the "Sheet" prefix from all sheets
bearing such names, eg sheets named as: Sheet2, Sheet3, Sheet4 ... will be
renamed as simply: 2,3,4 ... Thanks.
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---