VB Formulas entre hojas de un mismo libro

[Dic]

Sub Macro2()
Dim r As Double
Dim c As Double
Sheets("PU's(1)").Select
c = ActiveCell.Column
r = ActiveCell.Row
Worksheets("CARTA PROPUESTA").Activate
[a1].FormulaR1C1 = "='PU''s(1)'!R[" & r - 1 & "]C[" & c - 1 & "]"
Sheets("PU's(1)").Select
End Sub

estando en PU's(1) toma los valores
c=4 y r=11

se cambia de hoja a CARTA PROPUESTA y en la celda activa B31 me pone
='PU''s(1)'!F42

que no corresponde a c=2 que es B y r=31

este es mi problema me podrian ayudar perdon por no saberlo explicar

[abrahamvj]

Veo que decidiste ya no probar en LWP. Prueba esto, es usando el Address del que te hable:

Sub Macro2()
Dim rango As String
Sheets("PU's(1)").Select
rango = ActiveCell.Address
Sheets("CARTA PROPUESTA").Select
[b1] = "='PU''s(1)'!" + rango
Sheets("PU's(1)").Select
End Su

Abraham

[Dic]

Mil Gracias Abraham me hecho un gran favor...