Compile error: Expected error: End of statement

Range("B1").Formula = "=(""TPR""&" "&TEXT(profitloss!B3,"mmmm")&" "&YEAR(profitloss!B3))"

This is the code I am trying to run. I know i have to use double apostrophes in places but I am unsure where and I can't seem to get it to work.

Thanks