I am trying to use the Reuters quote function in a macro. I have created a
string that gets the symbols and date from cells of the excel file. I can
successfully have the strinf displayed in a message box to show that I have
successfully created the function for reuters. However when I attempt to
have this inputed into a cell I get the runtime 1004 error. can you help?
thanks

Sub valuation()


Dim tdate As String
Dim symbol As String
Dim price As String
Dim valuation As String
Dim f1 As String
Dim f2 As String
Dim f3 As String
Dim f4 As String
Dim f5 As String
Dim f6 As String

Range("A2").Activate
tdate = ActiveCell
symbol = ActiveCell.Offset(0, 1)

valuation = ActiveCell.Offset(0, 3)

f2 = ",,"
f3 = ","
f4 = "close"
f5 = Chr(34)

f1 = "=RTD(" & f5 & "ReutersRTD.HystoricalQuote"" "

f6 = f1 & f2 & symbol & f3 & f5 & f4 & f5 & f3 & tdate & f3 & f5 & f5

Range("A2").Activate
tdate = ActiveCell
symbol = ActiveCell.Offset(0, 1)

MsgBox (f6)

ActiveCell.Offset(0, 2) = f6

End Sub