Goto next empty cell in a range

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
 
D

Don Guillett

try

Sub findnextblank()
Application.Goto [findrng].Find("", after:=ActiveCell)
End Sub
 
R

RADO

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
 
Top