Excel VisualBasic Script

Sub fomulaCell()
    ActiveSheet.Cells.SpecialCells(Type:=xlCellTypeFormulas, _
        Value:=xlErrors).Activate
End Sub