>>215
一瞬で終わってしまった

Sub foo()
Do
If Now() > "2022/1/1 00:00:00" Then
Beep
Exit Sub
End If
Loop
End Sub