Ustabil makro med explorer 7.0

Hej

Jeg bruger et stykke kode her, men den er meget ustabil med hensyn til sendkeys, så det er kun halvdelen af gange den gør som jeg forventer, hvad kan være årsag til den ustabilitet ?



Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub HentOgGemSide()
    Dim navn As String ' navn i Hyperlink
    Dim Link As String ' URL adresse i Hyberlink
       
   
    Dim AltKey As String
    Dim CtrlKey As String
    Dim ShiftKey As String
    Dim TabKey As String
    Dim EnterKey As String
    Dim DownKey As String
    Dim mKey As String
    Dim EscKey As String
   
    Dim j As String ' Sti hvor det skal gemmes
   
    '--------------------------
    AltKey = "%"
    CtrlKey = "^"
    ShiftKey = "+"
    TabKey = "{TAB}"
    EnterKey = "~"
    DownKey = "(DOWN)"
    mKey = "m"
    EscKey = "(ESC)"
   
     
 
    Range("d2").Select ' Her er mine navne som Hyperlink
    Do Until IsEmpty(ActiveCell)
      If ActiveCell = 0 Then
   
      ActiveCell.Offset(0, 2).Select
        Selection.Hyperlinks(1).TextToDisplay = ActiveCell
        navn = Selection.Hyperlinks(1).Name ' Navn er nu lig navn
          Link = Selection.Hyperlinks(1).Address ' Link er nu lig www.xxxx.dk
          j = "C:\Documents and Settings\jgl\Dokumenter\"
           
  Set ie1 = CreateObject("InternetExplorer.Application") ' Starter Explore op
    ie1.Visible = True
    ie1.Navigate2 Link
      While ie1.busy: Wend
      Sleep 15000 ' Giv browseren tid at åbne færdig)...
        SendKeys "%F", True 'Tryk på Gem
          Sleep 2000
          SendKeys "m", True 'Tryk på Gem som
            Sleep 2000
            SendKeys j & navn
            'SendKeys "{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}{DOWN}", True 'Vælg den nummer 2 af mulighederne i Filtype (Webside, fuldstændig)
              Sleep 2000
                SendKeys "{TAB}{DOWN}", True 'Vælg den nummer 2 af mulighederne i Filtype (Webside, fuldstændig)
                Sleep 2000
                  SendKeys "{TAB}"
                  Sleep 2000
                    SendKeys "G", True 'Tryk på Gem
                    Sleep 2000
                    'SendKeys "-", True 'Tryk på Gem
                    ' SendKeys "G", True 'Tryk på Gem
                                               
                                               
                                                'ie1.Quit
                                                'Set ie1 = Nothing ' lukker browser ned
                                               
                      ActiveCell.Offset(0, -2).Select
                      ActiveCell.Offset(1, 0).Select ' næste celle
                                   
      End If
        'ActiveCell.Offset(1, 0).Select ' næste celle
    Loop
  End Sub