You didn't have to set the Find call to a variable before testing for data
in the range; this works the same way your code does...

If Not Selection.Find("*") Is Nothing Then MsgBox "Data exist in the range"

--
Rick (MVP - Excel)



"Jacob Skaria" wrote in message
...
Does this help..


Set varRange = Selection.Find("*")
If Not varRange Is Nothing Then MsgBox "Data exist in this range"

--
Jacob (MVP - Excel)


"Valeria" wrote:

Dear experts,
what is the quickest VBA way to determine in a big cells range if at
least
one of them is non empty?
Many thanks for your help!
Best regards

--
Valeria