how to make the webcontent fit the form

Hello.

I have a simple code so that i can use the internet within vba. The webbrowser itself is embedded on the spreadsheet.

The code to call the website is,

Sub net()
Private Sub CommandButton1_Click()

Sheet1.WebBrowser1.Navigate (Sheet1.Range("b1"))
Do
DoEvents
Loop Until Sheet1.WebBrowser1.ReadyState = READYSTATE_COMPLETE

End Sub

Where b1 is the url

I have a fixed sized window, however when i bring back the website it only partially fits the form.

How would i resize the web content to fit the size of the window automatically? Essentially like a phone does


End Sub

No responses? Is this possible?