Formula trouble in VBA

Hi guys,

I'm getting a compile error before I even get a chance to use it. I'm sure it's simple but it's got me stumped.

Range("AG1").Select

ActiveCell.Formula = "=LEFT(TRIM(C1),FIND(" ", TRIM(C1))-1)&" "&MID(TRIM(C1),FIND("^^",SUBSTITUTE(TRIM(C1)," ","^^",LEN(TRIM(C1))-LEN(SUBSTITUTE(TRIM(C1)," ",""))))+1,255)"

        Selection.AutoFill Destination:=Range("AG1:" & myRangeBASE), Type:=xlFillDefault

I've underlined and made bold, the area where the error occurs.

The error is:

Compile error:
Expected: end of statement


Thanks for your time,

Ciaron