check if range containing values

[Markus Serbel]

hi,

how can I check, if a cell range ( range("A1", "A5") ) contains any values?
i need to know, if the cells are empty.

thanks,
markus

 

[Markus Serbel]

Dim numVals As Integer
numVals = Application.CountA(Range("A1:A5"))
If numVals = 0 Then MsgBox "All Empty"

thank you!
markus

 

[Markus Serbel]

WorksheetFunction.CountA(Range("A1:A5"))=0

thank you!
markus