Last time, DonkeyOte wrote a macro for me for changing worksheet name. Now the worksheets sequence have
changed and so, the macro required slight amendment to reflect this change. I tried to amend it without success. I wish
someone can assist me to amend the script to suit the current workbook.
Dim i As Long
Dim sWks As String
On Error Resume Next
For i = 3 To 32
sWks = Worksheets("Menu").Range("D5").Offset(i).Text
If InStr(sWks, "/") Then sWks = Left(sWks, InStr(sWks, "/") - 1)
sWks = WorksheetFunction.Trim(sWks)
Worksheets(i).Name = sWks
Now, a new worksheet "Worksheet 1" is added to the 2nd worksheet. so basically, i need to those names shown in
"Menu" to be named in the worksheet eg worksheet 3 to be named as "!", worksheet 4 as "AIR"