concatenate vba help

[plost33]

i am trying to up the following formula into the cell referenced by the range. the formual in the cell should end up being:

=CONCATENATE(G7,IF(F7= "OFF",".Offshore",".Onshore"),".",A7)


i have the vba currently written as below and it is not working.

Range("R" & r).Value = "=CONCATENATE(G7,IF(F7=" & "OFF" & "," & ".Offshore" & ", " & ".Onshore" & ")," & "." & ",A7)"

 

[Jonmo1]

try

Range("R" & r).Formula = "=CONCATENATE(G7,IF(F7= ""OFF"","".Offshore"","".Onshore""),""."",A7)"

Hope that helps.