Position screen at end of macro

  • Thread starter Thread starter Kevryl
  • Start date Start date
K

Kevryl

So far, at the end of a macro I've been sending the cursor across to various
columns and back to position the screen. Itys a bit clumsy, and of course
when you work between different sized computer monitors it doesn't work the
same.

Is there a quick way to position a partcular cell at top left of screen -
and perhaps on a separate occasion a particular cell at bottom right?

Thanks.
 
Hi,

To put a cell at the top left

Application.Goto ActiveSheet.Range("B3"), scroll:=True
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
 
Hi Kevryl

Try the below

Sub GoToTopLeft()
Dim rngTemp As Range
Set rngTemp = Range(Split(ActiveWindow.VisibleRange.Address, ":")(0))
Application.Goto rngTemp, True
End Sub

Sub GoToBottomRight()
Dim rngTemp As Range
Set rngTemp = Range(Split(ActiveWindow.VisibleRange.Address, ":")(1))
rngTemp.Offset(-1, -1).Activate
End Sub
 
Back
Top