エクセルのマクロについて教えてください。

マクロ
Sub ファイル削除()
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("10", "100", "300", "500")).Delete
Dim myName As String, myBook As String
myName = ThisWorkbook.FullName
myBook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=myBook & "\" & Range("Z1").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill myName
If Workbooks.Count <= 1 Then Application.Quit
.Saved = True
.Close False
Application.DisplayAlerts = True
End With
End Sub
があります。
このマクロを実行すると不要なシートの削除
ファイル形式：XLSmを「xlsx」に指定セル値名で保存し、不要となった
ファイル形式：XLSmを削除するようにできるマクロですが、
このマクロを実行するとファイル自体が削除されて何もファイルが残らない状態に
なってしまいます。
解決方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/10/03 13:29

こんにちは

こんな順番だとどうでしょう
With ThisWorkbook
.ChangeFileAccess xlReadOnly
.Saved = True
Kill myName
If Workbooks.Count <= 1 Then Application.Quit
.Close False
Application.DisplayAlerts = True
End With

この回答へのお礼

回答ありがとうございました。
解決いたしました。

お礼日時：2022/10/03 15:37