Select Multiple Cells with VBA

[Lekster07]

Hi there,

I would like to use VBA to do this: Select all cells in range E4:E500 that is equal to "Active".

Thanks in advance!

 

[AlphaFrog]

    Application.ScreenUpdating = False
    Range("E3:E500").AutoFilter Field:=1, Criteria1:="Active"
    Range("E4:E500").SpecialCells(xlCellTypeVisible).Select
    ActiveSheet.AutoFilterMode = False
    Application.ScreenUpdating = True

This uses autofilter to select the "Active" cells.