macro to look for empty cell

What is the code for a makro to look for the first empty
cell in column A?

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?
>