removing blank entries from an array

i have an array of strings. i'm trying to make a function that will return the arry without blank entries.

input would be: "text"/"words"/""/"more words"/""
result woud be: "text"/"words"/"more words"

j = lbound(ar) - 1
for i = lbound(ar) to ubound(ar)
if ar(i) <> "" then
j = j + 1
ar(j) = ar(i)
end if
Next
Redim Preserve ar(lbound(ar) to j)

--
Regards,
Tom Ogilvy


"TheIrishThug" <[email protected]>
wrote in message
news:[email protected]...
>
> i have an array of strings. i'm trying to make a function that will
> return the arry without blank entries.
>
> input would be: "text"/"words"/""/"more words"/""
> result woud be: "text"/"words"/"more words"
>
>
> --
> TheIrishThug
> ------------------------------------------------------------------------
> TheIrishThug's Profile:
http://www.excelforum.com/member.php...o&userid=29682
> View this thread: http://www.excelforum.com/showthread...hreadid=494693
>

thanks Tom

Originally Posted by Tom Ogilvy

j = lbound(ar) - 1
for i = lbound(ar) to ubound(ar)
if ar(i) <> "" then
j = j + 1
ar(j) = ar(i)
end if
Next
Redim Preserve ar(lbound(ar) to j)

--
Regards,
Tom Ogilvy


"TheIrishThug" <[email protected]>
wrote in message
news:[email protected]...
>
> i have an array of strings. i'm trying to make a function that will
> return the arry without blank entries.
>
> input would be: "text"/"words"/""/"more words"/""
> result woud be: "text"/"words"/"more words"
>
>
> --
> TheIrishThug
> ------------------------------------------------------------------------
> TheIrishThug's Profile:
http://www.excelforum.com/member.php...o&userid=29682
> View this thread: http://www.excelforum.com/showthread...hreadid=494693
>