次のスクリプトを実行していますが、スクリプトを実行するとファイルが閉じないようです。スクリプトを編集してスクリプトを閉じるにはどうすればよいですか。
Sub LoopFiles()
Dim MyFileName As String, MyPath As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
MyPath = "C:\macro\"
MyFileName = Dir(MyPath & "*.xlsx")
ChDir "C:\macro\csv"
Do Until MyFileName = ""
Workbooks.Open Filename:=MyPath & MyFileName
ActiveWorkbook.SaveAs Filename:=Left(MyFileName, InStr(1, MyFileName, ".xlsx") - 1), FileFormat:=xlCSV, CreateBackup:=False
MyFileName = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub