スキルアップ・問題解決なら、モーグにおまかせ！

シー名が2A(1)、2A(2)、2A(3)、2B、2B(2)、2B(2)、・・・とつけられています。
すべてのシート名から(1)を取りたいと思い、次のように考えましたが、うまくいきません。どなたかご教示ください。
Dim ws As Worksheet
Dim ws_Name As Integer
 
For Each ws In Worksheets
ws.Select
ws_Name = ActiveSheet.Name Like "2*(1)"
 If ws_Name = True Then
     ws_Name = ActiveSheet.Name Like "2*"
 Else
 MsgBox "ありません。"
End If
Next ws

Sub test()
    Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name Like "*(1)" Then
            ws.Name = Replace(ws.Name, "(1)", "")
        End If
    Next ws
End Sub

ありがとうございました。
simpleさんの回答例でできました。
すみません、勉強不足で