Run macro on all sheets except 1

Hello everyone
I want to run macro Hide rows if the workbook name is not 1 i.e. to run the macro on all sheets except the sheet names "1"
For this I am doing this--
But this is running on The sheet named as "1" too....
Can someone please Help....

Sub Apply_to_all_sheets()
       
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
   With ws
      If .Name <> "1" Then
        Call HideRows
             End If
   End With
Next ws
End Sub

Sub HideRows()
    Dim cell As Range
    For Each cell In Range("BA3:BA22")
        If Not IsEmpty(cell) Then
            If cell.Value = 1 Then
                cell.EntireRow.Hidden = True
            End If
        End If
    Next
End Sub

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)