Goto next empty cell in a range

  • Thread starter Thread starter Keith Robinson
  • Start date Start date
K

Keith Robinson

Can any one help me with a macro/code that will make the
next empty cell in a named rage become the active cell
 
try

Sub findnextblank()
Application.Goto [findrng].Find("", after:=ActiveCell)
End Sub
 
a couple of ways

Range("MyRange").End(xlDown).Offset(1).Activate

or


Dim c As Range
Set c = Range("MyRange").Cells(1)
Do Until c.Value = Empty
Set c = c.Offset(1)
Loop
c.Activate


Cheers,
RADO
 
Back
Top