Hiding Rows based on cell value

[low98]

I'm trying to hide all rows on a sheet that are NOT equal to an active cell. Basically 'Sheet A' has a single cell that is currently active (A:A range), and I'd like to hide all rows that don't equal this active cell on 'Sheet B' (B:B range). Any pointers would be great!

Thanks!

 

[Andrew Poulsom]

Try:

Sub Test()
    With Worksheets("Sheet B").Range("B:B")
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:="=" & ActiveCell.Value, Operator:=xlAnd
    End With
End Sub

 

[low98]

Thanks for the suggestion, however it seems to make this workbook chug much longer then I was looking for. Is there another avenue that doesn't use AutoFilter perhaps?

 

[Andrew Poulsom]

For me it was instantaneous with calculation set to manual. Maybe try that.