Private Sub Workbook_Open()
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, 2).Select
End Sub

or better IMO

Private Sub Workbook_Open()
Cells(Rows.Count, "B").End(xlUp).Offset(1,0).Select
End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Diane" wrote in message
...
When A was a blank column, I would open the worksheet and it would go to
the
next available line automatiacally. This was working well with the
following:
Private Sub Workbook_Open()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).Select
End Sub

but now I inserted automatic numbering in column A. I tried to substitute
"A" (in the above formula) with "B", which is now the new point of entry
when
I open the worksheet, but it does not work.

Can anyone please help? Thanks.