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.
--
Rgds
Max
xl 97
---
Please respond, in newsgroup
xdemechanik <atyahoo<dotcom
----

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
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------

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.

Thanks, Paul !
Works great.
--
Rgds
Max
xl 97
---
Please respond, in newsgroup
xdemechanik <atyahoo<dotcom
----
wrote in message
...
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
--
Please respond, in newsgrou
xdemechanik <atyahoo<dotco
---

----- 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
--
Please respond, in newsgrou
xdemechanik <atyahoo<dotco
---

Thanks, Chris !
Works great ..
--
Rgds
Max
xl 97
---
Please respond, in newsgroup
xdemechanik <atyahoo<dotcom
----
"chris: correction" wrote in message
...


----- chris wrote: -----

Here is one way:
Sub SwitchOffGridLinesWS()
Dim ws As Worksheet, MyWs as Worksheet, MyRng as Range
Set MyWs = ActiveSheet
Set MyRng = Selection
For Each ws In ActiveWorkbook.Worksheets
ws.Activate
ActiveWindow.DisplayGridlines = False
Next
MyWs.Activate
MyRng.Select
End Sub