Hi
I run this line of code at the end of a procedure to activate first blank
cell in column B.

Cells(8, 2).End(xlDown).Offset(1, 0).Select

Depending where you are in the sheet the cell activated could be at the top
or bottom of the screen.
or
This line of code will always position active cell at top left and in my
situation €œhide€� column A.
Application.Goto Reference:=Range(ActiveCell.Address), Scroll:=True

How can I have the active column B cell in the vertical centre of screen and
Column A still visible, when number of rows are passed the centre?

--
Thank you

Regards

Bob C