|
test1を実行したところエラーはでないのですが、
test2を実行すると以下のエラーが出ます。
「マクロ'Book1!mac1'を実行できません。このブックでマクロを使用できないか、またはすべてのマクロが無効になっている可能性があります。」
mac1の名前を変更しtest2の該当箇所を変更すると動くのは分かっているのですが、
なぜ現状のtest2を実行するとエラーが出るのかが分かりません。
mac1という名前を変更せずに動かすにはどのように修正したらよいでしょうか
(Excelのマクロは有効になっています)
Sub abcmac1()
Debug.Print Now
End Sub
Sub mac1()
Debug.Print Now
End Sub
Sub test1()
Dim N1 As Date
N1 = DateAdd("S", 3, Now)
Application.OnTime N1, "abcmac1"
End Sub
Sub test2()
Dim N1 As Date
N1 = DateAdd("S", 3, Now)
Application.OnTime N1, "mac1"
End Sub
|
|