Dim Z As Variant 'Z is the value to hold the zoom level. >>WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z