a couple of ways

Sub CtrlHome()
SendKeys "^{home}"
End Sub

Sub gghome() 'Tom Ogilvy
rw = ActiveWindow.SplitRow + 1
col = ActiveWindow.SplitColumn + 1
Cells(rw, col).Select

End Sub

--
Don Guillett
SalesAid Software

"Cindy B" wrote in message
...
Is there a way to create a macro/button that will return me to the top of
the
spreadsheet?
thanks in advance
--
Cindy B