Trying to set ActiveWindow.Zoom to a certain value at the beginning of a procedure.

This was working fine. It does not anymore.

Why?

Sub AddChart()
  '... 
  If Not ActiveWindow.Zoom = 200 Then
    MsgBox "Set Window Zoom to: 200%", vbOKCancel,
  Else
  ActiveWindow.Zoom = 200
  Set ws = ActiveSheet
  With ws
  '...
  End With
  End If
End Sub