SendKey til Internet Explore 7.0

Hej

Jeg kan ikke få min makro til at køre med SendKey og det gælder for Explorer 7.0

Den svigter tit på ALT tasten når jeg bruger den som SendKey og når det sker går der total ged i det

Hvordan kan jeg sikre funktionen, så min makro gemmer 3 sider hver gang ?

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub HentOgGemSide()
 
    Dim AltKey As String
    Dim TabKey As String
    Dim DownKey As String
   
    Dim j As String ' Sti hvor det skal gemmes
    Dim t As Double
   
    '--------------------------
    AltKey = "%"
    TabKey = "{TAB}"
    DownKey = "(DOWN)"
   
 
    For t = 1 To 3
    Link = "http://www.google.dk/search?hl=da&q= test &meta=" '
      j = "C:\"
      Set ObjIE = CreateObject("InternetExplorer.Application")
        ObjIE.Visible = True
        ObjIE.Navigate2 Link
                'Wait till the page is completely displayed!
                'The following three lines are not needed if
                'you don't want to wait for the 1st page to display completely
                  While ObjIE.ReadyState < 4
                  Sleep 100
    Wend
   
      Sleep 1500 ' Giv browseren tid at åbne færdig)...
      SendKeys "%", True 'Tryk på ALT
        Sleep 1500
        SendKeys "f", True 'Tryk på Filer
          Sleep 500
            SendKeys "m", True 'Tryk på Gem som
            Sleep 500
              SendKeys j & t
              Sleep 500
                SendKeys "{TAB}{DOWN}", True 'Vælg den nummer 2 af mulighederne i Filtype (Webside, fuldstændig)
                Sleep 500
                  SendKeys "{TAB}", True
                  Sleep 500
                    SendKeys "G", True 'Tryk på Gem
                    Sleep 2500
                                               
      Next
      End Sub



Thx på forhån hvis der kommer hjælp denne gang !