check if range containing values

Markus Serbel · Jul 14, 2003

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 · Jul 14, 2003

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

thank you!

markus

Markus Serbel · Jul 14, 2003

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

thank you!

markus