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

マクロコード
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
があります。
このマクロを実行すると不要シートを削除し
指定セル値でファイル形式を「XLSX」にて保存し元のファイルを削除できるマクロです。
このマクロを実行したタイミングで
指定シート「青紙表」指定セル値「R33」にセルが移動してマクロが終了できる方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2022/10/04 11:05

こんにちは

ご提示のものを作成できるのなら、こんな質問にはならないと思うのだけれど・・

指定シートをアクティブにして、指定セルを選択するだけ。
（マクロの記録をとれば、作成可能です）

この回答へのお礼

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

お礼日時：2022/10/04 12:56