Hi, I have the following code which would create two columns, column A
could contain some names and column B would download something from the
database based on column A. I want to download something into column C
based on column B (the italic line). However this code doesn't seem to
be working. it seems like "under" is return blank when I tried printing
it out. Please help! this is urgent! thanks very much.


Do While Not Left(rgSource.Offset(nRow, 0).Value, 4) = "#N/A"
For nCol = 1 To 14
If Trim(rgSource.Offset(nRow, nCol - 1).Value) < "" Then
rgTarget.Offset(ntRow, 0).Value = rgSource.Offset(nRow,
nCol -1).Value
ntRow = ntRow + 1
End If
Next nCol
nRow = nRow + 1
Loop
ReDim szWarData(ntRow + 1, 10)
nRow = 0

Do While rgTarget.Offset(nRow, 0).Value < ""

szRic = rgTarget.Offset(nRow, 0).Value

- Under = rgUnder.Offset(nRow,1).Value-

szWarData(nRow, 0) = "=RtGet(""RSF"", """ & szRic & """,
""LONGLINK1"")"
- szWarData(nRow, 1)="=RtGet(""RSF"", """ & Under& """,
""LONGLINK1"")" -
nRow = nRow + 1
Loop


--
owl527
------------------------------------------------------------------------
owl527's Profile: http://www.excelforum.com/member.php...o&userid=20916
View this thread: http://www.excelforum.com/showthread...hreadid=476177