On Error Resume Next
Dim r As Range, s As Range
Set s = Range("A:D")
Set r = s.SpecialCells(xlCellTypeConstants, xlTextValues)
Set r = s.SpecialCells(xlCellTypeFormulas, xlTextValues)
HOTPEPPER: thanks again. I came up with a formula similar to yours and I could not figure out why it was not working. My formula - IF(ISNUMBER(D5),"",D5). After seeing your formula, I realise my stupid mistake.