evaluate issue with overlapping dates

[oddworld]

hi there i am trying to code the following formula in column L =if(or(and(g2>=$s$2,g2<=$t$2),and($s$2>=g2,$s$2<=h2)),"Overlap","Do not overlap")

i am receiving a compile error @ range line on "if", would appreciate some assistance

Sub Overlap()
 Dim Addr As String
  Addr = "g2:g" & Cells(Rows.Count, "g").End(xlUp).Row
  Range(Addr).Offset(, 5) = Evaluate (addr & if(or(and(g2>=$s$2,g2<=$t$2),and($s$2>=g2,$s$2<=h2)),"Overlap","Do not overlap"), LastRow))
End Sub

Regards,
Odd

 

[footoo]

Instead of using Evaluate, what about :

Dim Addr As Range
Set Addr = Range("g2:g" & Cells(Rows.Count, "g").End(xlUp).Row).Offset(, 5)
With Addr
    .Formula = "=IF(OR(AND(G2>=$S$2,G2<=$T$2),AND($S$2>=G2,$S$2<=H2)),""Overlap"",""Do not overlap"")"
    .Value = .Value
End With

Or using Evaluate :

Dim Addr$
Addr = "g2:g" & Cells(Rows.Count, "g").End(xlUp).Row
Range(Addr).Offset(, 5) = Evaluate(Replace("if(or(and(#>=$s$2,#<=$t$2),and($s$2>=#,$s$2<=h2)),""Overlap"",""Do not overlap"")", "#", Addr))

 

[oddworld]

Thanx footoo, fantastic, gold dust