Goto next empty cell in a range
 

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

Goto next empty cell in a range
 

try

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

--
Don Guillett
SalesAid Software

"Keith Robinson" wrote in message
...
Can any one help me with a macro/code that will make the
next empty cell in a named rage become the active cell

Goto next empty cell in a range
 

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


"Keith Robinson" wrote in message
...
Can any one help me with a macro/code that will make the
next empty cell in a named rage become the active cell