Delete Rows based on criteria

[HockeyDiablo]

Good afternoon, looking to remove some rows if cells equaled a certain text

Rows 17-19 ~ AT11 = MS18
Rows 20-22 ~ AT12 = FB18
Rows 23-25 ~ AT13 = STS18
Rows 26-28 ~ AT14 = MH18
Rows 29-31 ~ AT15 = FS18
Rows 32-34 ~ AT16 = SFS18

Here is what I have researched thus far but it can only do one?

Private Sub Worksheet_Change(ByVal Target As Range)
    Rows("26:28").EntireRow.Hidden = IIf(UCase(Range("AT14")) = "MH18", False, True)
End Sub

Apparently "Worksheet_Change" is something I have never encountered. Thanks

J

 

[alansidman]

try this:

Option Explicit


Sub Foo()
If Range("AT11") = "MS18" Then Rows("17:19").Hidden = True
If Range("AT12") = "FB18" Then Rows("20:22").Hidden = True
If Range("AT13") = "STS18" Then Rows("23:25").Hidden = True
If Range("AT14") = "MH18" Then Rows("26:28").Hidden = True
If Range("AT15") = "FS18" Then Rows("29:31").Hidden = True
If Range("AT16") = "SFS18" Then Rows("32:34").Hidden = True
End Sub