using excel functions (concatenate and mid) in VBA

[Pascale]

I am trying to write a formula in a cell using VBA but having difficulties breaking the text into 6 characters with a "." between the 6 and 7th character. I have written this

ActiveCell.FormulaR1C1 = "=concatenate(mid('sheet1'!R[" & Range("StartRow") & "]c[-6],49,6)," & "" . "" & ", mid('sheet1'!R[" & Range("StartRow") & "]c[-6],55,2)"

But it won't except the syntax for the "." ....

Can you please advise how to add the ".", and better yet if it can be done without having to use concatenate.

If i was to enter it as a formula in the cell i could just do this

=MID('Sheet1'!B56,49,6)&"."&MID('Sheet1'!B56,55,2)

Any suggestions please

[rylo]

Hi

How about

ActiveCell.FormulaR1C1 = "=concatenate(mid('sheet1'!R[" & Range("StartRow") & "]c[-6],49,6)," & """ . """ & ", mid('sheet1'!R[" & Range("StartRow") & "]c[-6],55,2))"

rylo

[Pascale]

Thank you so much, if only life's problems was this easy to solve

Thank you thank you thank you