Specific VBA Macro for Selecting Rows Containing Cells with Formulas, and the 2 rows below

[stevefilcher]

Is there a way to write a VBA macro that would find and select all cells with formulas, and then select the row holding those cells, and the two rows below it?

And if that's not possible, would there be a way to simply hotkey Find & Select cells containing formulas?

Cannot seem to figure it out, any help is greatly appreciated! Thanks!

 

[Alex Blakenburg]

Sure but you need to eleborate on what you want to do.
VBA

Sub SelectFormulas()

    Dim rng As Range
    Dim rRow As Range
    Dim rRowGrp As Range
    
    ' Set rng to all cells containing formulas
    Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
    
    Debug.Print rng.Address                                                ' XXX for testing show selection in the immediate window
    
    For Each rRow In rng.Rows
        ' select current row + next 2 rows
        Set rRowGrp = rRow.Resize(3)
        Debug.Print rRow.Address, rRowGrp.Address           ' XXX for testing show selection in the immediate window
    Next rRow

End Sub

Manually
Ctrl+F >
Find What > "=" without the quotes
Look in > Formulas
Then Ctrl+A in the found box