Thank you Mana...I sincerely appreciate your help!


Quote Originally Posted by mana View Post
Dim v
Dim k As Long


v = ListBox1.List
For k = LBound(v) To UBound(v)
    v(k, 4) = "$0.00"
Next
ListBox1.List = v

OMG...thank you so much