With Worksheets("WebBrowser")
.Shapes("WebBrowser1").Top = 100
.Shapes("WebBrowser1").Left = 50
.WebBrowser1.Height = Mid(Resolution, 1, InStrRev(Resolution, "x") - 1)/2
.WebBrowser1.Width = Mid(Resolution, 1, InStrRev(Resolution, "x") - 1)/2
End With