This code will color the first empty cell in the range A1:A10 yellow. When
the empty cell is found, the routine exits.
Sub FlagFirstEmpty()
Dim Rng As Range
For Each Rng In Range("A1:A10")
If IsEmpty(Rng) = True Then
Rng.Interior.ColorIndex = 6
Exit Sub
End If
Next
End Sub
----
Regards,
John Mansfield
http://www.pdbook.com
"esrei" wrote:
What is the code for a makro to look for the first empty
cell in column A?