Dim P As Range, C As Range, CellType
On Error Resume Next
For Each CellType In Array(xlCellTypeConstants, xlCellTypeFormulas)
For Each C In ActiveSheet.Cells.SpecialCells(CellType, xlErrors)
If C = CVErr(2007) Then If P Is Nothing Then Set P = C Else Set P = Union(P, C)
Next C
Next CellType
P = Empty