Excel Post Crash

Sub CrashExcel
    Dim Query as Object
    Set Query = ActiveSheet.QueryTables.Add(Connection:="URL;https://www.w3schools.com/html/html_tables.asp", Destination:=ActiveCell)
    Query.PostText = "param=[""param"",""Enter param""]"
    Query.Refresh
End Sub