Excell VBEditor - do while loop der ikke funker optimalt -

Sub Makro9()

Range("A5").Select

  i = 0
  Do While i < 4
  ChDir _
        "C:\doc\makro"
    Workbooks.Open Filename:= _
        "C:\doc\makro\liste.xls"
    Range("A1").Select
    ActiveCell.Next.Select
    X = Selection.Value
    Debug.Print X
    ActiveWindow.ActivateNext
  i = i + 1
  ChDir _
        "C:\doc\"
    Workbooks.Open Filename:= _
        "C:\doc\test.xls"
  Range("A5").Select
       
  Loop
End Sub

Jeg er igang med at teste denne code snipp igennem for at bruge den i en større sammenhæng. Men den stopper pt. og markerer aller første linie med gult "Sub makro9()".

nogen der kan se hvorfor?
Excell - VBEditor