Hide rows based on specific column

[Shadkng]

Hi, below is code to hide rows based on entries in cells in column 4. Is it possible to modify it so instead of column 4, it will use any selected column? Would I just select any cell in the column I want, or a specific cell to represent the column? Thanks for the help.

Sub HIDE_ROWS()
Application.ScreenUpdating = False
    BeginRow = 6
    EndRow = 160
    ChkCol = 4

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value = 0 Or Cells(RowCnt, ChkCol).Value = "" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        End If
    Next RowCnt
    Range("c:c").EntireColumn.Hidden = True
    Application.ScreenUpdating = True
End Sub

 

[Fluff]

ChangeChkCol = 4 to ChkCol = ActiveCell.Columnbut ensure you only have one cell selected.

 

[jsb1921]

If you want to explicitly ask the user to avoid training/confusion, change chkcol=4 line to

ChkCol = Application.InputBox("Enter a Column Name to check for eg. D")

 

[Shadkng]

ChangeChkCol = 4 to ChkCol = ActiveCell.Columnbut ensure you only have one cell selected.

Thank you.

is it possible to also hide columns starting with column C over to the active column?