Macro to hide worksheet

[maidenname]

HI EVERYONE I HAVE A MACRO TO DISPLAY WORKSHEETS BASED ON CELL VALUE IN ANOTHER WORKSHEET PART DISPLAYED BELOW, I NEED AN ADDITION TO THAT MACRO TO HIDE ANY OF THOSE VISIBLE WORKSHEETS BASED ON CELL VALUE WITHIN THOSE INDIVIDUAL WORKSHEET i.e. IF A1 IN S7A = "BYE" THEN HIDE THAT WORKSHEET

Sheets("Teams").Visible = True
Sheets("Teams").Select
Let x = 3
Let y = 2
Cells(x, y).Select
If Cells(x, y) = "1" Then check = True Else check = False
If check = False Then GoTo m:
Sheets("S7A").Visible = True
Sheets("S8A").Visible = True
Sheets("S9A").Visible = True
Sheets("Teams").Select
Range("B3").Select
Sheets("Teams").Visible = False

Any help would be appreciated