Help please :( Zoom all Worksheets defined by cell value

[supa2532]

Hi there, I'm losing my mind with this can someone please save me? I think I need to determine a cell but not sure how?

I am looking for all worksheets to zoom to the value I enter into Cell G138? Doesn't work?

Any help very much appreciated!

Sub Zoom()
'UpdatebyExtendoffice20171215
Dim I As Long
Dim xActSheet As Worksheet
Set xActSheet = ActiveSheet
For I = 1 To ThisWorkbook.Sheets.Count
Sheets(I).Activate
ActiveWindow.Zoom = G138
Next
xActSheet.Select
End Sub

 

[supa2532]

I think I need to tell excel to look up the value in a cell 'on a particular sheet'. But how I have no idea?

 

[Fluff]

How about

Sub Zoom()
'UpdatebyExtendoffice20171215
Dim I As Long
Dim xActSheet As Worksheet
Set xActSheet = ActiveSheet
For I = 1 To ThisWorkbook.Sheets.Count
   Sheets(I).Activate
   ActiveWindow.Zoom = Sheets("[COLOR=#ff0000]input[/COLOR]").Range("G138").Value
Next
xActSheet.Select
End Sub

Change sheet name in red to suit

 

[supa2532]

How about

Sub Zoom()
'UpdatebyExtendoffice20171215
Dim I As Long
Dim xActSheet As Worksheet
Set xActSheet = ActiveSheet
For I = 1 To ThisWorkbook.Sheets.Count
   Sheets(I).Activate
   ActiveWindow.Zoom = Sheets("[COLOR=#ff0000]input[/COLOR]").Range("G138").Value
Next
xActSheet.Select
End Sub

Change sheet name in red to suit

You sir are a legend! Thank you so much! Very helpful and works a treat

 

[Fluff]

Glad to help & thanks for the feedback