Bringing focus back to source point upon subroutine run completion

  • Thread starter Thread starter Max
  • Start date Start date
M

Max

Hi guys,

Let's say I'm working in Sheet13 with cursor on B3

Using Alt+F8, I call / run a sub from my personal.xls, for example:

Sub SwitchOffGridLinesWS()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ActiveWindow.DisplayGridlines = False
Next
End Sub

The sub finishes its job but the activesheet has changed
to the rightmost sheet's cell A1

How do I bring the cursor focus back to where I was when I ran the sub:
i.e. back to Sheet13 with cursor on B3 ?

Thanks for insights.
 
Sub SwitchOffGridLinesWS()
Dim ws As Worksheet
Dim wsht as Worksheet
Set wsht=activesheet
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ActiveWindow.DisplayGridlines = False
Next
wsht.select
End Sub

HTH
Paul
 
Here is one way
Sub SwitchOffGridLinesWS()
Dim ws As Worksheet, MyWs as Worksheet, MyRng as Rang
Set MyWs as ActiveShee
Set MyRng = Selectio
For Each ws In ActiveWorkbook.Worksheet
ws.Activat
ActiveWindow.DisplayGridlines = Fals
Nex
MyWs.Activat
MyRng.Selec
End Su


----- Max wrote: ----

Hi guys

Let's say I'm working in Sheet13 with cursor on B

Using Alt+F8, I call / run a sub from my personal.xls, for example

Sub SwitchOffGridLinesWS(
Dim ws As Workshee
For Each ws In ActiveWorkbook.Worksheet
ws.Activat
ActiveWindow.DisplayGridlines = Fals
Nex
End Su

The sub finishes its job but the activesheet has change
to the rightmost sheet's cell A

How do I bring the cursor focus back to where I was when I ran the sub
i.e. back to Sheet13 with cursor on B3

Thanks for insights
-
Rgd
Ma
xl 9
 
----- chris wrote: ----

Here is one way
Sub SwitchOffGridLinesWS()
Dim ws As Worksheet, MyWs as Worksheet, MyRng as Rang
Set MyWs = ActiveShee
Set MyRng = Selectio
For Each ws In ActiveWorkbook.Worksheet
ws.Activat
ActiveWindow.DisplayGridlines = Fals
Nex
MyWs.Activat
MyRng.Selec
End Su



----- Max wrote: ----

Hi guys

Let's say I'm working in Sheet13 with cursor on B

Using Alt+F8, I call / run a sub from my personal.xls, for example

Sub SwitchOffGridLinesWS(
Dim ws As Workshee
For Each ws In ActiveWorkbook.Worksheet
ws.Activat
ActiveWindow.DisplayGridlines = Fals
Nex
End Su

The sub finishes its job but the activesheet has change
to the rightmost sheet's cell A

How do I bring the cursor focus back to where I was when I ran the sub
i.e. back to Sheet13 with cursor on B3

Thanks for insights
-
Rgd
Ma
xl 9
 
Back
Top