help with vba loop inside listbox & search value

[Dave]

If your userform name is Userform1 with a Listbox1 named listbox...

Dim FindPart As String, FindValue As Range
If UserForm1.ListBox1.ListIndex <> -1 Then
FindPart = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex)
Set FindValue = Sheet1.Range("A:A").Find(what:=FindPart, LookIn:=xlValues, LookAt:=xlWhole)
With FlagSH
AddMe.Offset(0, 0).Value = FindValue.Offset(0, 0).Value
End With
End If

HTH. Dave