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