Autofilter a range based on column values

[saffeeq]

Hello
I am new to excel vba. I want to hide all the rows in the range (B9:Q1574) using excel vba code based on values in column Q.
I placed a button on sheet1(Home) to filter Data range in Sheet2(CB). I wrote the below code in click event of the Button.
Sheets("CB").Select
Worksheets("CB").Range("B9:Q1574").AutoFilter Field:=16, Criteria1:=">100"

But it doesn't work.
Can anyone help?

 

[My Aswer Is This]

Edit

 

[My Aswer Is This]

Try this:

Sub Filter_Me_Please()
'Modified  9/17/2018  1:07:30 AM  EDT
Application.ScreenUpdating = False
Sheets("CB").Select
    With Worksheets("CB").Range("B9:Q18")
        .AutoFilter Field:=16, Criteria1:=">100"
        counter = .Columns(16).SpecialCells(xlCellTypeVisible).Count
        If counter > 1 Then
            .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
        Else
            MsgBox "No values found"
        End If
    End With
Application.ScreenUpdating = True
End Sub

 

[saffeeq]

Thanks for the reply.
Tried with the code.
It Works, but all rows gets hidden. I need to hide rows in which the value of column Q is less than 100.

 

[My Aswer Is This]

During testing I change this:

B9:Q18

Modify to your needs.

And if you still have problems.
Someone else here at Mr. Excel will have to help you. It's time for me to go to bed.​

_{^{<strike>
</strike>}}​