Centering a cell on the screen

Greetings

How would you center a cell on the screen or make the sheet shift so that cell is in the upper left corner?

Cheers
Aurbo

Found it..

Sub ScrollCetre()
Dim ColVis As Single

ColVis = ActiveWindow.VisibleRange.Columns.Count
Application.Goto Reference:=Range("P1"), Scroll:=True
ActiveWindow.SmallScroll Toleft:=ColVis \ 2
End Sub