"Object variable or With block variable not set" accessing ActiveSheet

Question

I am trying to set all worksheets to a user-specified zoom:

 1 Option Explicit

 2

 3 Sub AllSheetZoom()

 4

 5 Dim wSht As Worksheet

 6 Dim SvActiveSht As Worksheet

 7 Dim strZoom As String

 8

 9 SvActiveSht = ActiveWorkbook.ActiveSheet

10

11 strZoom = InputBox("Zoom percentage?")

12

13 For Each wSht In ActiveWorkbook.Worksheets

14     wSht.Activate

15     ActiveWindow.Zoom = strZoom

16 Next wSht

17

18 ActiveSheet = SvActiveSht

19

20 End Sub

This generates the following error:

   Run-time error '91':

   Object variable or With block variable not set

Clicking on Debug highlights line 9.  I think the error means that I am missing an object prefix, so I replaced line 9 with:

   SvActiveSht = Application.ActiveWorkbook.ActiveSheet

I get the same error.  What is wrong?

Answer 1

You left out "Set" that is required to assign an object to a variable'

See comment re other syntax error line 18

1 Option Explicit

 2

 3 Sub AllSheetZoom()

 4

 5 Dim wSht As Worksheet

 6 Dim SvActiveSht As Worksheet

 7 Dim strZoom As String

 8

 9  Set SvActiveSht = ActiveWorkbook.ActiveSheet

10

11 strZoom = InputBox("Zoom percentage?")

12

13 For Each wSht In ActiveWorkbook.Worksheets

14     wSht.Activate

15     ActiveWindow.Zoom = strZoom

16 Next wSht

17

'18 ActiveSheet = SvActiveSht   'Incorrect syntax

18 SvActiveSht.Activate

19

20 End Sub

Answer 2

Thanks, OssieMac.  I'm trying to lose my C++ ways.  This will take some time, but I feel the transformation taking place.