Hi Davey,

Please replace my code with the following version:

'=============
Public Sub TesterA()
Dim rngEmpty As Range
Dim i As Long

For i = 1 To Rows.Count Step 3
If IsEmpty(Cells(i, "A")) Then
Set rngEmpty = Cells(i, "A")
Exit For
End If
Next i

If Not rngEmpty Is Nothing Then
MsgBox rngEmpty.Address
End If
End Sub
'<<=============


---
Regards,
Norman