Create a search box

Ctrl +F doesn't work for this? Either way here is a way that incorporates an input box:

Sub Find_Name()
Dim strBox As String
Dim rFind As Range

strBox = InputBox("Enter the name you want to search for.")

If strBox = "" Then Exit Sub

Set rFind = Rows("1:1").Find(What:=strBox, LookIn:=xlValues, LookAt:=xlPart)

If Not rFind Is Nothing Then
    rFind.Select
Else
    MsgBox ("That name could not be found")
End If

End Sub