質問: ### 前提・実現したいこと マクロ1で別ブックにシートごとコピーしたマクロ2が正しく動きません。 ### **問題:コピー先のシートマクロ2の引用先がコピー元ブックになっている** マクロ2はボタン謳歌で起動する仕様です。 原因の仮説:コピー元のマクロ2を登録するさい、sheet1.マクロ2を選択しても、ファイル名!sheet1.マクロ2になっている かれこれ1時間ほど検索して調べていますが、見つかりません。 ご存知の方、どうぞご教示のほどお願いいたします。
回答: Dim Var As Variant Dim Msg As String Workbooks.Open Filename:=FILE_PATH & RenameFileName, UpdateLinks:=0 ActiveWorkbook.Sheets("0000").Activate Var = ActiveWorkbook.LinkSources(xlExcelLinks) '一致するリンクを探す For i = 1 To UBound(Var) Msg = Var(i) If Msg Like "*" Then 'リンクの変更 ActiveWorkbook.ChangeLink _ Name:=Msg, _ NewName:=ActiveWorkbook.FullName, _ Type:=xlLinkTypeExcelLinks End If Next i ActiveWorkbook.Close SaveChanges:=True