Possible? Macro that will search and locate a colum of info

[sdehod]

I am working on a data base that tracks employees training certificates. I was wondering if it is possible to create a macro or something that will bring up all the info on a specified employee in the [active] sheet, This workbook contains 8 sheets?
I was hoping to be able to make a button you click then it would allow you to enter the persons name and then locate the column of info in relation to the name entered in the [active] sheet.

I have used macro's before but I am sort of self taught and am lost as to how to go about building something like this..

[millz]

Maybe something from this thread? It's possible but you probably will need to post a sample workbook to get some help.

[sdehod]

Attachment 271712 here is the excel form I am trying to create a macro for. I have the button on the sheet1 just not sure what to do from there?

[JOHN H. DAVIS]

Do you have a sample you can provide with your layout? To attach a file, push the button with the paperclip (or scroll down to the Manage Attachments button), browse to the required file, and then push the Upload button.

[sdehod]

Okay so I have found some VBA code that might help me but I am still lost as to how to change it to fit.
Sub Find_Name()
Dim Rng As Range
FindString = InputBox("Enter Entire Employee Name (Last, First):")
If Trim(FindString) <> "" Then
With Sheets("Active").Range("B:B")
Set Rng = .Find(what:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng.Offset(0, -1), True
Else
MsgBox "Employee Not Found"
End If
End With
End If
End Sub

I have pasted it now with the changes and question I have

Sub Find_Name()
Dim Rng As Range
FindString = HOW DO I ENTER CODE TO ATTACK IT TO THE COMMANDBUTTON I HAVE MADE??
If Trim(FindString) <> "" Then
With Sheets("Active").Range("A:A") I have changed this to read A:A cause the into it's searching is in the first row?
Set Rng = .Find(what:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
searchorder:=xlByRows, _
searchdirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng.Offset(0, -1), True
Else
MsgBox "Employee Not Found"
End If
End With
End If
End Sub

I am assuming that I would just fix this code and insert it into a model in VBA mode, I already have a command button built in Forms??