Error When Selecting Sheet then Selecting Range

Hi Guys,

Im getting an error when I try to select a range on a sheet i've just selected
the code below shows where this is happening.

    If CheckBox2.Value = True Then
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> "Welcome" And ws.Name <> "Data" And ws.Name <> "Print" Then
            ws.Select
            Range("A1").Select
            Application.Run ThisWorkbook.Name & "!HideCrews"
            Sheets(ws).Range("A1").Select
            End If
        Next ws
     End If

For all sheets who's name does not equal Welcome, Data or Print
Select that worksheet
select range on worksheet
run macro HideCrews

Is this happening because ws isnt assigned as the worksheet name?
if so how would I assign ws = worksheet.name

    If CheckBox2.Value = True Then
        For Each ws In ThisWorkbook.Worksheets
            If ws.Name <> "Welcome" And ws.Name <> "Data" And ws.Name <> "Print" Then
            nm = ws.Name
            Sheets(nm).Select
            Range("A1").Select
            Application.Run ThisWorkbook.Name & "!HideCrews"
            Sheets(ws).Range("A1").Select
            End If
        Next ws
     End If

Thanks in advance