【マクロ】１回目の実行後、２回目からは実行できないようにはできますか？

以下のマクロを画像に登録してボタンとしています
マクロ内容は以下です
・別ファイルに、モジュール（マクロ）を登録
・別ファイルに画像を作成
・作成した画像にマクロを登録

これを２回目実行すると、画像の上にさらに画像ができ
また、マクロは登録されません

１回登録したら、次から実行できないようにできますでしょうか？？？
別ファイル（１ファイル）に１回までしか実行できないようにしたいです

アドバイス、コード分かる方は教えて下さい

なお、別ファイルは１日ごとに変わります
なので、次の日にはまた、初めて
新しく上記マクロを実行し、画像にマクロを登録します


【コード】
Sub macro_import()


'鏡ブックへマクロコードをimport


Dim filepath1 As String

Dim wb1 As Workbook

Dim ws1 As Worksheet


filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(7, 1)

Set wb1 = Workbooks.Open(filepath1)

Set ws1 = wb1.Worksheets("Sheet1")


Const filepath As String = "C:\Users\2020\OneDrive\マクロ\マクロファイル\"


With wb1.VBProject.VBComponents

.Import filepath & "delete.bas"


End With

Call sample

End Sub

Sub sample()

Dim filepath1 As String

Dim wb1 As Workbook

Dim ws1 As Worksheet


filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(141, 1)

Set wb1 = Workbooks.Open(filepath1)

Set ws1 = wb1.Worksheets("Sheet1")




With ws1.Shapes.AddShape(msoShapeRectangle, 120, 60, 120, 60)

.Fill.ForeColor.RGB = RGB(220, 220, 220)

.Line.ForeColor.RGB = RGB(220, 220, 220)

.Name = "あいう"

With .TextFrame.Characters
.Text = "不要行削除"
.Font.Size = 16


End With

.Top = Range("f1").Top

.Left = Range("f1").Left

End With

ws1.Shapes("あいう"). 'プローシージャ名を記述

End Sub