What about my code didn't work? I tested it on the attached file and it seems to work.
Sorry. There was one line that only worked because of the way my sheet was set up. This should be better:
Sub test()
Dim rng As Range
Dim lRow As Long
lRow = Sheets("Sheet1").UsedRange.Rows.Count
Set rng = Sheets("Sheet1").Range("A" & lRow & ":DD" & lRow)
With rng
For Each cell In rng
If cell.Interior.ColorIndex = 6 Then
If cell.Value = Empty Then
MsgBox "Please ensure that you have filled " & Chr(10) & "out all empty yellow fields'.", vbOKOnly + vbInformation, "Please fill empty fields"
Exit Sub
End If
End If
Next cell
End With
End Sub
Bookmarks