I'm in over my head !!
Ho hum !!
Things are progressing, slowly but surely.
I am using the below code to look in my column of dates:-
Sub datefind()
Dim TheDate As Date
Dim Index As Variant
TheDate = Range("C1")
' Find a match for the serial value of the date in the range A1:A10
' on Sheet1.
Index = Application.Match(CLng(TheDate), Range("C2:C50"), 0)
' Display the results.
If IsError(Index) Then
MsgBox "Date Not Found"
Else
MsgBox "Match item: " & Index
End If
End Sub
However instead of returning a Msgbox I want to either make the cell the activecell or name it as a range. Any ideas ??