Activewindow Zoom

[av8tordude]

I have this code that counts up or down. I keep getting an error each time I want to change the number.
The error is: Unable to set the zoom property of the window class. The highlighted error is: ActiveWindow.Zoom = Zoom.value

[VBA]Private Sub Zoom_Change()
ActiveWindow.Zoom = Zoom.value
End Sub

Private Sub SpinButton1_SpinDown()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub

Private Sub SpinButton1_SpinUp()
Zoom.Value = Format(0, "0")
Zoom.Value = Zoom.Value + SpinButton1.Value / 100
Zoom.Value = Format(Zoom.Value, "0%")
End Sub

[/VBA]

[Bob Phillips]

What is Zoom here? Are these ActiveX controls on a worksheet?

[av8tordude]

Zoom is a textbox on a userform.

[Bob Phillips]

This works fine for me

[vba]

Private Sub Zoom_Change()
ActiveWindow.Zoom = Val(Replace(Zoom.Value, "%", ""))
End Sub

Private Sub SpinButton1_SpinDown()
Zoom.Value = Format(SpinButton1.Value / 100, "0%")
End Sub

Private Sub SpinButton1_SpinUp()
Zoom.Value = Format(SpinButton1.Value / 100, "0%")
End Sub

Private Sub UserForm_Activate()
Me.SpinButton1.Value = ActiveWindow.Zoom
Zoom.Value = Format(SpinButton1.Value / 100, "0%")
End Sub
[/vba]

I would set the max and min on your spinbutton to some sensible values though.