macro doesn't work...help!

[cmefly]

hi,

can someone suggest why this macro won't work?

thanks,

cmefly

Sub Macro4()
sheetname = InputBox("Enter the EXACT File Name of the Application you with to extracted data from")

Range("c103").Value = _
"=INDIRECT(""'"" & ""[""&sheetname&""]""& ""4. 2003 Data & 2005 "" & ""'!"" & ""d22"")"

End Sub

 

[cpod]

To enter a formula into a cell you must use the Formula attribute rather than the Value attribute:

Range("c103").Formula = _
"=INDIRECT(""'"" & ""[""&sheetname&""]""& ""4. 2003 Data & 2005 "" & ""'!"" & ""d22"")"