Can anyone help me with this code

What i'm trying to do is get the last 3 letter of the file name ie AWE
to be replaced with
what is in a selected cell. In this case A32
please help

Sub update()

Range("A32").Select
franking = ActiveCell.FormulaR1C1

'ActiveCell.FormulaR1C1 = _
"='[Reuters Contribution fields_AWE.xls]Estimates'!R29C2"

End Sub


--
trevor@OML
------------------------------------------------------------------------
trevor@OML's Profile: http://www.excelforum.com/member.php...o&userid=29503
View this thread: http://www.excelforum.com/showthread...hreadid=492083