Create a search box

Looking for help on creating a search box that would search the names in the first row and take me to the column that matches the name ?

Im new to macros and VBA so any help would be great

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

Perfect
thankyou