Not really. Using .SpecialCells(xlConstants) will still throw an error
if there are no constants in the range.

In article .com,
"Paul" wrote:

All you have to do to get your code to work is change
SpecialCells(xlConstants, xlTextValues) to SpecialCells(xlConstants)