Syntax Error Using Evaluate In VBA

If I copy "mysum" contents to a cell and replace "lista" with a defined list, it works just fine. But whenever I run this code, it gives me syntax error.

Sub aaa()Dim i As Integer, myvar As Variant, tester As VariantDim mysum As Variant, lista As Variant,
alpha As Datelista = Sheet2.[D6].ValueWith Worksheets(Range("A10").Value) Do
i = i + 1mysum = Evaluate("SUMPRODUCT(((ISNUMBER(MATCH($B$8:$B$10007," & lista & ",0)))
*($A$8:$A$10007>(TODAY()-180))*(($E$8:$E$10007)+($F$8:$F$10007)+($G$8:$G$10007)+($I$8:$I$10007)+($K$8:$K$10007)))))
myvar = Evaluate("=TIME(10,0,0)>" & mysum) Loop Until myvarEnd Withtester = 35 - Sheet2.[c10]
alpha = mysumMsgBox "VALID for [" & lista & "] after " & i & " Day(s).
hours in last 180 days after " & i & " Day(s) will be (" & alpha & ")"End Sub