Unmerge macro no longer works, needs some tweeking!

I have a macro that used to work perfectly, but now that I need it ignore the first sheet entirely, it wont function as I need to. I added the highlighted line to ignore the first sheet, but I'm missing something.

Sub UnMerge()
     ' unmergenew Macro
 Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
For Each WS In Worksheets
If WS.Name <> "Sheet1" Then 
        With WS
          
            .UsedRange.UnMerge
Application.Goto Reference:="R1C1"
     Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.UnMerge
End If

End With
    Next WS
Application.ScreenUpdating = True
    Application.Calculation = xlCalculationManual
End Sub

I appreciate any assistance that can be offered