Oop's, you need to remove the following code:
' * - - - - -
' check if this is new data
If (FilRcd = 1) Then
SymRow = Get_Symbol_Row(Symb_Wks)
If (TmpRng.Value = Sheets("Symbols").Range("D" & SymRow)) Then
Exit Function
End If
End If
' * - - - - -
This was something to make sure I didn't down load it
a second time if I already had the most recent data.
-pb