To make the activecell be at the top of the screen & to the left on the screen try this.
Sub TopLeft()
ActiveCell.Select
With ActiveWindow
.ScrollColumn = ActiveCell.Column
.ScrollRow = ActiveCell.Row
End With
End Sub
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment