Auto gem af hjemmeside

Hej

Jeg skal have gemt en hjemmeside i internet explorer. Men den gider ikke at gemme automatisk.
Hvad mangler jeg?

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub HentOgGemSide()

    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate2 "http://google.dk" ' Hent din webside...
    While IE.busy: Wend

    Filename = navigate2 & "\temp.html"
    IE.Document.ExecCommand "SaveAs", True, Filename
    End Sub

På forhånd tak.