Put this on a workbook open event, change sheet name and cell column as
needed
Private Sub Workbook_Open()
Sheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Select
End Sub

--
--
-John
Please rate when your question is answered to help us and others know what
is helpful.

"Stephen" wrote in message
...
When I open a workbook/sheet, I want the next available cell for data
entry
to be displayed, at the moment the page scrolls somewhere halfway up
existing
data, meaning I have to scroll down to the next data entry point. Can I
do
this ??