Hide row if specific number in cell

[Nick70]

Hi,

I have code below that hides rows which contain number 8 in column A.

I would like to amend code so that it hides rows which contain 8,9,10.11 in column A.

Sub Hide2()
'Hide rows in a Range that contain Numbers in column K

Application.ScreenUpdating = False

    BeginRow = 1
    EndRow = 200
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = "8" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt

Application.ScreenUpdating = True

End Sub

How do I do that?


Thanks,
Nix

 

[BSALV]

For RowCnt = BeginRow To EndRow
     Select Case Cells(RowCnt, ChkCol).Value
          Case "8", "9", "10", "11": Cells(RowCnt, ChkCol).EntireRow.Hidden = True
     End Select
Next RowCnt

caution "8" as string is different from 8 as value !!

But why don't you use autofilter ?

 

[Nick70]

Great Thanks!

This macro kicks in if a dropdown selects certain values (so more complicated)

Thanks,
Nix