Daterng not being considered in code

[Godders199]

Hello, can someone point me in the correct direction, the following does not error and runs, but does not take into account the date rng criteria, just returns all values with a "yes", is there something i have done wrong.

Dim Daterng As Long
Dim Daterng1 As Long
Daterng = Sheets("Home").Range("e6")
Daterng1 = Sheets("Home").Range("e7")
R = 2
T = 2
Do Until Range("A" & R).Value = ""
If (Sheets("Outcomes").Range(QRingfenced & R).Value = "Yes" And Sheets("Outcomes").Range(QDateCheckConsolidated & R) >= Daterng And Sheets("Outcomes").Range(QDateCheckConsolidated & R) <= Daterng1) Then


thanks