How to remove "-" from a worksheet?

I have the following code that could help to remove "-" in the name of all the worksheets in a workbook, except the worksheet "0-Summary". It works well in one workbook but doesn't in the other. The file extension of one of the workbooks is "xls" while the other (the one that the code doesn't work on) is "xlsm". To make the code work on the xlsm workbook, does the code needs changes? If it does, can anyone help with it? Thanks in advance!

     
 
Sub DEL_Comma()

Dim s As Variant
Dim MySh As String

      MySh = "0-Summary"
      For Each s In ThisWorkbook.Sheets
      If s.Name <> MySh Then
      s.Name = Replace(s.Name, "-", "")

End If

Next

End Sub

Hi - I tried your code in an .xlsm file and it worked fine for me. What error are you getting while running this in your .xlsm file, can you upload the file to have a look.

Thanks.

Hello alexxgalaxy,

I also find it to work as, kbkumar says. Maybe you could check if the correct Macro is being used in the .xlsm WorkBook. The Code I have used is:

Option Explicit
Sub DEL_Comma()

Dim s As Variant
Dim MySh As String

      MySh = "0-Summary"
      For Each s In ThisWorkbook.Sheets
      If s.Name <> MySh Then
      s.Name = Replace(s.Name, "-", "")

End If

Next

End Sub

Hope that helps!

If you have saved the original .xls File on which the code was working as an .xlsm File, and the Macro was assinged to a Button of some sorts, check and re-assign the Macro to run with "ThisWorkBook".