Hi Curt

Try amending to the following

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim trow As Long
If Target.Row < 2 Then Exit Sub
trow = Application.Max(2, Target.Row - 1)
If Application.CountA(Rows(trow)) < 11 And IsEmpty(Target.Value)
Then
MsgBox "Finish Last Row"
End If
End Sub


--
Regards

Roger Govier


"Curt" wrote in message
...
If Target.Row < 2 Then Exit Sub
If Application.CountA(Rows(Target.Row - 1)) And
IsEmpty(Target.Value) <
11 Then _
MsgBox "Finish Last Row"
want to check row up to column 11 for empty cells. want this to happen
if
user hits enter or down arrow to start a new row. I am off as the
msgbox pops
up when entering in row. should not come up till in next roe if blanks
left
in tatget row. Have used .CountA(cells (columns to no avail
need help
Thanks