Hide Rows Macro

[Miroy72]

My macro hides all rows that have the number 3 in the first column. I would like to make it so that it hides rows that have 3,4 or 5. How would I do that here?

[FONT=Times New Roman][SIZE=3][COLOR=#000000][FONT=Calibri][SIZE=3][COLOR=#000000]Sub HideMaddie()[/COLOR][/SIZE][/FONT]
[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    BeginRow = 4[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=#000000]
[/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    EndRow = 141[/COLOR][/SIZE][/FONT][FONT=Times New Roman][SIZE=3][COLOR=#000000]
[/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]  ChkCol = 1[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]    For RowCnt =BeginRow To EndRow[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        IfCells(RowCnt, ChkCol).Value = 3 Then[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]           Cells(RowCnt, ChkCol).EntireRow.Hidden = True[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        Else[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]           Cells(RowCnt, ChkCol).EntireRow.Hidden = False[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        End If[/COLOR][/SIZE][/FONT]
[FONT=Times New Roman][SIZE=3][COLOR=#000000]
[/COLOR][/SIZE][/FONT][FONT=Calibri][SIZE=3][COLOR=#000000]    Next RowCnt[/COLOR][/SIZE][/FONT]

[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

Thanks in advanced!

 

[JoeMo]

Try:

Sub HideMaddie()

    BeginRow = 4
    EndRow = 141
  ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = 3 Or Cells(RowCnt, ChkCol).Value = 4 _
            Or Cells(RowCnt, ChkCol).Value = 5 Then
           Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
           Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If

    Next RowCnt

End Sub

 

[Miroy72]

Thank you JoeMo, I just figured it out as well!

 

[JoeMo]

Thank you JoeMo, I just figured it out as well!

You are welcome - thanks for the reply.