Msgbox Join(TNum,",")

Tim


"carg1" wrote in
message ...

Hi folks, I've searched up and down these forums, maybe I'm not
using
the right keywords, but I can't find an answer. I have a dynamic
array, TNum(), that gets filled with anywhere from 1 to 6 numbers
depending on the item name entered. The problem is, I want to make
a
message box that will output whatever numbers are in the array,
separated by commas. I tried a fixed array, but when the array had
less than 6 numbers, it'd return an out of bounds error, as I
expected.


I know my code is wrong (aside from the fact that it doesn't do what
I
want), but I feel I'm on the right track. I think all I need is a
way
to create the entire string first and then put it into the msgbox.
I
can't figure it out though. Pleeeaaase help meeee...:(


Code:
--------------------
Iput = InputBox("Please enter item:")
Set FoundCell = Cells.Find(what:=Iput, LookIn:=xlFormulas,
lookat:=xlWhole, _
searchorder:=xlByRows)
FoundRow = FoundCell.Row

For i = 2 To 7

If Worksheets(1).Cells(FoundRow, i).Value < "" Then
j = j + 1

ReDim Preserve TNum(1 To j)
TNum(j) = Worksheets(1).Cells(FoundRow, i).Value

End If

Next i

For l = 1 To UBound(TNum())
Term2 = Format(TNum(j), "####\.##\.##\.##") & ", " & _
Format(TNum(j), "####\.##\.##\.##") & ", " & _
Format(TNum(j), "####\.##\.##\.##") & ", " & _
Format(TNum(j), "####\.##\.##\.##") & ", " & _
Format(TNum(j), "####\.##\.##\.##") & ", " & _
Format(TNum(j), "####\.##\.##\.##")
--------------------


--
carg1
------------------------------------------------------------------------
carg1's Profile:
http://www.excelforum.com/member.php...o&userid=15271
View this thread:
http://www.excelforum.com/showthread...hreadid=390757