Hi
I have a listbox in my userform in which i would like to have two
columns show up from my find result. I am mixed as to the coding of
which i have the extract below.
Thks Kz

With grSearchRng
Set C = .Find(gvFindX, , goLookIn, goLookAt, goSearchOrder, ,
gbMatchCase)
If Not C Is Nothing Then
sFirstAddr = C.Address
Do
ufFind.LstFound.AddItem "'" & C.Worksheet.Name & "'!"
& C.Address
If IsNumeric(C.Value) Then
Select Case C.Column
Case 9, 10
error here-- ufFind.LstFound.List(.ListCount - 1, 1) = C.Value
Case Else
ufFind.LstFound.List(.ListCount - 1, 1) = Format(C.Value, "#,##0.00")
End Select
Else
ufFind.LstFound.List(.LstFound.ListCount - 1, 1) = C.Value
End If
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address < sFirstAddr
End If
End With