sum cell address

[monika]

i am doign a sum via vba...
Cells(rngAssyTCR.Row, rngGFTCR.Column).Value = "='[" &
AssyWkBkName & "]" & AssyWkSht1 & "'!R" & rngSumOf.Row
& "C" & incrColby1 & "/" & 1000 & "+" & Cells
(rngTCRTurnKey.Row, rngGFTCR.Column).Address(0, 0)

whihc is getting replaced as below finally in the cells as:
=[Assembly_RFC0405.xls]GF!$C$6/1000+'D116'

I am unable to understand why this apostrophe is come
before D116..
any suggestions?

thanks
monika

 

[Tom Ogilvy]

because you are mixing R1C1 references with A1 style references. Use one or
the other, but don't mix both. In this case, it accepts your first
reference which is R1C1 and doesn't recognize the second which is A1

Cells(rngAssyTCR.Row, rngGFTCR.Column).Value = "='[" & _
AssyWkBkName & "]" & AssyWkSht1 & "'!R" & rngSumOf.Row _
& "C" & incrColby1 & "/" & 1000 & "+" & Cells _
(rngTCRTurnKey.Row, rngGFTCR.Column).Address(0, 0,xlR1C1)

should work.