ExcelのVBAコードについて教えてください。

以前教えて頂きましたコード
Private Sub Workbook_Open()
Dim tmp, dNow
tmp = Split(ThisWorkbook.Name, ".")
If Split(ThisWorkbook.Name, ".")(UBound(tmp)) <> "xlsm" Then
dNow = Format(Now, "yyyy/mm/dd")
With Worksheets("300")
If dNow >= Format(.Range("D39"), "yyyy/mm/dd") _
And dNow <= Format(.Range("E39"), "yyyy/mm/dd") Then
MsgBox ("「締め切りが完了しました」"), 48
Exit Sub
End If
End With
End If
End Sub
があります、
このコードは指定セルの日付の範囲内によってブックをオープンした時に
警告文が表示されます。
この警告文が表示されたタイミングで
マクロ
比較日付
便利帳比較
マクロひな形保存
上記の3つのマクロが実行できる方法を教えてください。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2023/01/23 09:38

And dNow <= Format(.Range("E39"), "yyyy/mm/dd") Then

MsgBox ("「締め切りが完了しました」"), 48
call 比較日付
call 便利帳比較
call マクロひな形保存
'上3行追加　
'（必要に応じて記載モジュール名を付ける　例　call module1.比較日付）
Exit Sub

この回答へのお礼

回答ありがとうございました。
上手くできました。
感謝いたします。

お礼日時：2023/01/23 10:51