Tarih küçükse hücreler yanıp sönsün

[byfika]

Merhabalar,
Makroda bulunan aşağıdaki satırı nasıl yazarsam, B sütununundaki alt alta olan tarihler H1 deki tarihten küçük olursa tarihlerin küçük olduğu satırlar yanıp sönsün. B sütunudaki H1 deki tarihden büyük olanlar da hiç bir işlem olmasın.

If Worksheets("sayfa1").Range("B1") > Worksheets("sayfa1").Range("H1") Then

veya makroda nasıl yazılım değişikliği yapılabilinir.
Sub YANSON()
Dim newColor As Integer
Dim hucre As Range
Dim x As Integer
Dim fSpeed

If Worksheets("sayfa1").Range("B1") <= Worksheets("sayfa1").Range("H1") Then

Set hucre = Range("a1:g65000")
Application.DisplayStatusBar = True
Application.StatusBar = "...DİKKAT!... TARİH BÜYÜK...! "
newColor = 3
fSpeed = 0.3
Do Until x = 30
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
hucre.Font.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
hucre.Font.ColorIndex = xlAutomatic
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar


Else
End If
End Sub

Teşekkürler

 

[Korhan Ayhan]

Dosyanız ektedir.

 

[byfika]

Merhabalar, Korhan bey
Sizler sayesinde VBA da çok şeyler öğreniyoruz. Ellerinize sağlık.
Cevabınız içinde ayrıca çok çok teşekkürler,