If Application.CountA(rng) = rng.Cells.Count Then

MsgBox "Is empty
End If

HTH

Bob

"Luc" wrote in message
...
I have a named range ("Risks").
How can i check if this named range contains no values.
If the range is totaly empty, then i have to show a message box and exit
the sub.


Thanxxxxx,

Luc