Hi Davey,

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

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

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


---
Regards,
Norman



"DaveyJones" wrote in message
...
In Vb, I am trying to set as the ActiveCell, the first empty multiple of ~
30
in column A.
I.E. If A1 = "one"
A31 = "Example"

the program will spot this and set as ActiveCell A61.

PS Although setting this as active cell may not be the best way to do
what
I am trying to do, I quite enjoy finding out for myself how to do things
and
so I am not too worried how messy my code is. This has got me stumped
though,
I can't even think of a long winded way to do it. Not when I could
potentially use all 65k rows.

I'd very much appreciate all assistance.

--
Dave