Set Zoom Level Input Box

Hi All, how do i create in input box to select zoom level for this code. If anyone has a second and can help I woudl be very greatfull.

Sub ZoomAll()
 
Dim ws As Worksheet
 Application.ScreenUpdating = False
   
For Each ws In Worksheets
 If InStr(ws.Name, "_") > 0 And ws.Visible = True Then
    
    
    ws.Activate
 
    ActiveWindow.Zoom = 55
 
End If
Next ws

End Sub

How about this?

Sub ZoomAll()
    Dim ws As Worksheet
    Dim zoomlevel As Integer: zoomlevel = InputBox("Enter Zoom Level : ", "")
    
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If InStr(ws.Name, "_") > 0 And ws.Visible = True Then
            ws.Activate
            ActiveWindow.Zoom = zoomlevel * 1
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub

BSB

Thank you kindly.

Happy to help

BSB