Do While Loop never stops

Dear Sirs,

I just come up with a problem that the vba runs the loop but will never end. The codes previously work correctly but seems fails after I made some slight changes to the codes and folder file names or whatever which I cannot remember :

Files in folder :

11038-CAL-201906.xls
11041-CAL-201906.xls

Sub CAL_ALLOpen()

'Open each CAL file and do formatting
'
'Ctrl+ L
'
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False

Dim MyCALFiles As String
Dim UniqueName As Boolean
UniqueName = False


 MyCALFiles = Dir(ActiveWorkbook.Path & "\*CAL*.xls")
 
 
 
 Do While MyCALFiles <> ""
 
 
  Workbooks.Open ActiveWorkbook.Path & "\" & MyCALFiles
  
 
  Application.DisplayAlerts = False

 Workbooks(2).Activate
 Sheets("CAL-GTT").Select
 Range("F9").Value = 500
 
 Workbooks(2).Activate
 Workbooks(2).Close SaveChanges:=True
 Application.DisplayAlerts = True
    
  On Error GoTo 0
  
   MyCALFiles = Dir
  
  Loop
    

Exit Sub

Application.AskToUpdateLinks = True
Application.DisplayAlerts = True
Application.EnableEvents = True

MsgBox "CAL Formatting Completed & Saved in Folder"

End Sub

Would like if someone could help spotting out where the error is ?

Many thanks !

Hi !

Too many things to say but first we wanna know where this code is located, which kind of module ?

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.

@chasoe
Please wrap code with tags, even if there is only one line
Thanks

As it's the casual case without any attachment, so attach the main workbook (where code is)
saved as binary .xlsb or macro .xlsm and at least a couple of source .xls files …

Macro file as attached, as I need to strip off any Asian characters within the codes.
And I think this final version can now work after several trial run.

@chasoe
Please read post #6 and add tags as requested ( final warning)

Yes, I got the message already.

Removed
Pending Op complying with moderator instruction