WorksheetFunction

Hello,

I have tried this code and can not get it to work. I get a type mismatch on the line starting a = application

Private Sub CommandButton1_Click()
Set myranged = Worksheets("Livedata bash").Range("D1:D2000")
Set myrangel = Worksheets("Livedata bash").Range("L1:L2000")
Set myranges = Worksheets("Livedata bash").Range("S1:S2000")

a = Application.WorksheetFunction.SumProduct((myranged = "5AL "), (myrangel = "A4"), (myranges = "Early"))
MsgBox a

Thanks
Dave

ps how should i post code