Your code worked ok for me.

I'm gonna guess that it's something in the data--maybe you don't have the cell
formatted correctly or maybe the cell isn't empty.

Remember that a cell that evaluates to "" isn't empty--or if that cell that
evaluated to "" was converted to values, then it's still not empty.

maybe this:
If IsEmpty(myCell.Value) = False ...
should be
if mycell.value < "" ...
or
if trim(mycell.value) < "" ...

And you should also declare your variables...

Dim wks As Worksheet
Dim myRng As Range
Dim myCell As Range
Dim myRngToCheck As Range





Jacqui wrote:

My For Each Statement is not working as expected. Syntax is below. Is the
problem with the Application.CountA line? Basically if I enter duff
information on my worksheet, the code will detect the first occurance of an
error but ignores subsequent rows on the sheet with known errors, ie non
completion of cells K:N.
Can anyone help fix? The reply I received earlier this morning did not
help. I have stepped thru the code to view the values in the variables but
I'm not able to solve.

Sub Qualifiers_Check()

Set wks = ActiveWorkbook.Worksheets("Part B - Coding Details")

With wks

Set myRng = .Range("c20", .Cells(.Rows.Count, "c").End(xlUp))

Set myRng = myRng.Resize(myRng.Count - 1)

For Each myCell In myRng.Cells
If IsEmpty(myCell.Value) = False And Not myCell.Font.Bold Then
Set myRngToCheck = .Cells(myCell.Row, "k").Resize(1, 4)
If Application.CountA(myRngToCheck) < myRngToCheck.Cells.Count
Then
Beep
MsgBox "You have not supplied all the relevant information
for this Segment type in Row " _
& myCell.Row & " on the Coding Details Sheet - PLEASE ENTER
ALL DETAILS"

End If
End If
Next myCell

End With

End Sub

--

Dave Peterson