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