Need HELP with writing a Macro! Please!

[docops]

"Column A includes a list of names.
Write a macro that will ask the user to enter a name (the default name is alex), and the macro will return the cell address of the required name. If the name does not exist – A proper message will be shown.
You should consider the list is dynamic and the macro is able to check every list length."
If you can help me with this please let me know

 

[kweaver]

Try this:

Sub FindName()
Dim name As String, lr As Long, c As Range
lr = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row
name = InputBox("Enter a name")
Set c = Range("A1:A" & lr).Find(name)
If c Is Nothing Then
 MsgBox "The name " + name + " wasn't found."
 Exit Sub
End If
MsgBox "The name " + name + " is in cell " + c.Address()
End Sub

 

[docops]

Thank you so much, had to edit it slightly. It worked.
THank you!!