Positioning a cell in a spreadsheet

[jamesbradleymiller]

I am developing a spreadsheet and I would like a create a macro that will select a specific cell in the worksheet and move it to the top left corner.

Can anyone help me with this?

Thanks in advance.

JBM

 

[acw]

Hi

Try

Sub aaa()
 Range("D8").Select
 ActiveWindow.ScrollColumn = Selection.Column
 ActiveWindow.ScrollRow = Selection.Row

End Sub

Tony

 

[Tazguy37]

Or with the ActiveCell:

Sub ScrollToTopLeft() 
    With ActiveWindow 
        .ScrollRow = ActiveCell.Row 
        .ScrollColumn = ActiveCell.Column 
    End With 
End Sub

HTH