Do While Loop never stops

Originally Posted by chasoe

it is just a normal simple module under VBA Project Explorer.

PHP Code: 

Sub CAL_ALLOpen()
      Dim P$, F$, L&
     With Application
         .AskToUpdateLinks = False
         .EnableEvents = False
         .ScreenUpdating = False
          P = ThisWorkbook.Path & "\"
          F = Dir(P & "*CAL*.xls")
    While F > ""
          L = L + 1
        With Workbooks.Open(P & F)
            .Sheets("CAL-GTT").[F9].Value2 = 500
            .Close True
        End With
          F = Dir
    Wend
         .AskToUpdateLinks = True
         .EnableEvents = True
         .ScreenUpdating = True
     End With
          MsgBox L & " files modified", vbInformation, "Updating CAL"
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Looks too advanced for me to understand, as I'm only a beginner in VBA and all the codes comes from the google search and adapted to fit my need.

And it's bad news as the codes fail again even after adding "Enable Event" stuff.