One way, using your existing code:

Do
Range("B" & ActiveCell.Row & _
":N" & ActiveCell.Row).Select
Empty_Check = _
Application.CountA(Range("B" & ActiveCell.Row & _
":N" & ActiveCell.Row))
MsgBox (Str(Empty_Check))
ActiveCell.Offset(1, 0).Range("A1").Select
Loop Until Empty_Check = 0

Regards

Trevor


"Michael Whitney" <Michael wrote in
message ...
I am trying to look at a range of cells to determine if the row is empty
within this range. But the code below is only looking at the first cell,
not
the selected range.


Do

Empty_Check = Application.CountA(Cells(ActiveCell.Row,
1).Range("B1:N1").Select)
MsgBox (Str(Empty_Check))
ActiveCell.Offset(1, 0).Range("A1").Select

Loop Until Empty_Check = 0