Sub FindEmptyCell()
For i = 1 To 65536 Step 30
Debug.Print i
If IsEmpty(Cells(i, 1)) Then
Cells(i, 1).Select
Exit Sub
End If
Next
End Sub

--
Regards,
Tom Ogilvy



"DaveyJones" wrote:

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