Çözüldü ThisWorkbook Özürlü Personel Hatırlatma

Belgenizin, sorunsuz çalıştığı dönemde;
A sütununda, alttan yukarı doğru ilk dolu hücrede BUGÜN'ün tarihi varmış demek ki.
Mevcut koddaki şu satırda bu tarih kontrol ediliyor, bulunamadığı için de sonraki aşamaya geçilemiyor durumda.

If Sayfa1.Range("A" & Sayfa1.Rows.Count).End(xlUp).Value <> DateValue(Now()) Then

Ayrıca bir de hatırlatma: koddaki DateValue(Now()) kısmının yerine DATE yazın.
İşleyiş değişmeyecek, A sütunundaki son dolu hücrede BUGÜN tarihi olmazsa istediğiniz gerçekleşmez.

Çok teşekkür ederim.