Sub AddWebBrowserToWorksheet()
Dim myWebBrowser
Dim wb
With ThisWorkbook.Worksheets(1)
On Error Resume Next
.OLEObjects(1).Delete
On Error GoTo 0
Set myWebBrowser = .OLEObjects.Add(ClassType:="Shell.Explorer.2", _
Left:=100, Top:=100, Width:=400, Height:=400)
End With
Set wb = myWebBrowser.Object
End Sub