Sub MaxinRange()
Dim LookupRange As Range
Dim ValRange As Range
'this is just a sample of how I am setting the custom Date to search for
Do
userInp = InputBox("Enter the date to search for")
If IsDate(userInp) Then
userDate = DateValue(userInp)
Else
MsgBox userInp & " does not appear to be a valid date", vbExclamation, "Please re-enter"
End If
Loop Until userDate <> 0
Set LookupRange = Range("A2:A200") 'the range of dates (however you are setting it)
myR = 0
On Error Resume Next
myR = LookupRange.Find(userDate).Row 'the row of userDate
On Error GoTo 0
If myR = 0 Then 'find failed
MsgBox "The date " & userDate & " was not found.", vbCritical, "Error"
Exit Sub
End If
Set ValRange = Range(Cells(LookupRange.Row, LookupRange.Column + 1), Cells(myR, LookupRange.Column + 1))
MsgBox WorksheetFunction.Max(ValRange)
End Sub