When running the code below, I'm getting the error 'Name Argument Not Found'
and the 'LookAt:=xlPart' text is highlighted. Any ideas on what I'm doing
wrong?

Sub DateMacro1()

Range("A1:O1").Select
Selection.Replace What: InputBox ("Enter Date"), _
Replacement: InputBox ("Enter Date"), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Many thanks if you can help!