Please help me if you can

I could do it in some sort of drop down box, the form can only be
modified from the user forms, so i cant use the
Data|Filter|autofilter to column A due partially because some of
the people whom have access to it could change things that dont need
to be changed. As for the Splitting the columns i Could do that but
then i would have to modfiy the still growing 14 pages of code :|
so
im trying to figure out the easiest way to do this. I was using

Column A is a list of names columns B D and F etc have dates in
them.
but the last names could be the same. so i need it to pull up the
entire cell then when selected in the listbox/combobox wichever , to
go directly to the line that name was on, and then start returning
data to textboxes on a different form.

Dim r As Range
Dim ws As Worksheet
Dim SearchTxt As String
Set ws = Worksheets("sheet1")
SearchTxt = TxtCaseName.Text
Set r = ws.Cells.Find(What:=SearchTxt, After:=ws.Range("A1"), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
If r Is Nothing Then
Unload Me
FCreate.Show
Else
Unload Me
FormLoad.TxtShelterDate =
Range("A6:AX4500").Find(FormLoad.TxtCaseName,
LookIn:=xlValues).Offset(0, 1)

to search, but how would i make it to where I could Post the Results
into a listbox or combo box, or some kind of drop down menu and then
when you choose the selection ( the specific name you wanted) That
it
will pull up the data on the same row column b, d, f etc
im thinking maybe declare a variable store them there and
use .additem?