If any cell in Selection is Empty give Error MsgBox

Hi all,
I´ve got a problem. I´m trying to write an macro like:

Sub XISN2()
Dim cell As Range
Dim bIsNumeric As Boolean

bIsNumeric = True
For Each cell In Range("A2:A100000")
If IsNumeric(cell) = False Then

bIsNumeric = False
Exit For
End If
Next cell

If bIsNumeric = True Then

MsgBox "Opening Date OK - Data Import Successful"
Else
MsgBox "ERROR in Opening Date - Check Data Import"
End If
End Sub

But instead of looking for numeric values. I want the macro to check the dynamic range of column A if there is any empty/blank cell and
then return an error/valid Message to the user.
Thanks in advance.

Please Login or Register  to view this content.

Sub XISE()
Dim myCellRange As Range

Set myCellRange = ThisWorkbook.Worksheets("Combined").Range("A1:A80000")

If WorksheetFunction.CountA(myCellRange) < myCellRange.Count Then
MsgBox "Quality Check II - ERROR in Opening Date - Check Data Import"
Else
MsgBox "Quality Check II - Opening Date OK - Data Import Successful"
End If
End Sub