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 » !