「マクロの記録」で作成したマクロがファイル名を変更するとエラーが起こる。

「マクロの記録」で作成したマクロ（任意の文字列を削除するマクロを複数作り、これを更に、複数一括してマクロを実行させるマクロを作ったところ）がファイル名を変更するとエラーが起こりマクロを実行が出来ません。
恐らくModule2を弄れば良い思い、『ファイル名.xlsm』を『ThisWorkbook.Activate』に変えてみましたが、ダメでした。
以下のコマンドをどう弄れば良いご教授お願い致します。

標準モジュールの
Module1には、以下のコマンドが入ってます。
Sub Ra()
'
' Ra Macro
'

'
Range("C20:XFD20").Select
Selection.Replace What:="Ra,", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub
Sub Rq()
'
' Rq Macro
'

'
Range("C21:XFD21").Select
Selection.Replace What:="Rq,", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
End Sub

そして、Module2には、以下のコマンドが入ってます。
Sub 一括()
'
' 一括 Macro
'

'
Application.Run "'ファイル名.xlsm'!Ra"
Application.Run "'ファイル名.xlsm'!Rq"

End Sub

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/03/15 15:18

Sub 一括()

'
' 一括 Macro
'

'
Application.Run "'" & ThisWorkbook.Name & "'!Ra"
Application.Run "'" & ThisWorkbook.Name & "'!Rq"

End Sub

とBookの名前を取得し利用する。

この回答へのお礼

迅速なご対応感謝いたします。

お礼日時：2021/03/15 15:27