zoom38
04-07-2010, 09:45 AM
Hello all I am trying to find a date that is enterred into Q26 within the range C5:AD5. Below is the code I've been trying but it doesn't work.
Sub BoldMeetingDate()
Dim MeetingDate As Date
Dim c As Range
Dim FoundIt
Dim FirstAddress
'Find The Member To Be Deleted
MeetingDate = Range("Q26").Value
With ActiveSheet.Range(Cells(5, 3), Cells(5, 30))
Set c = Cells.Find(What:=(MeetingDate), _
LookAt:=xlWhole, LookIn:=xlValues, searchorder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
End With
If Not c Is Nothing Then
FoundIt = c.Address
End If
End Sub
Ultimately I want to enter the date in Q26, find it in the Range C5:AD5 and hilight the column where it is found. Attached is a slim version of my spreadsheet. Thanks in advance for your help.
Gary
Sub BoldMeetingDate()
Dim MeetingDate As Date
Dim c As Range
Dim FoundIt
Dim FirstAddress
'Find The Member To Be Deleted
MeetingDate = Range("Q26").Value
With ActiveSheet.Range(Cells(5, 3), Cells(5, 30))
Set c = Cells.Find(What:=(MeetingDate), _
LookAt:=xlWhole, LookIn:=xlValues, searchorder:=xlByColumns, _
SearchDirection:=xlNext, MatchCase:=False)
End With
If Not c Is Nothing Then
FoundIt = c.Address
End If
End Sub
Ultimately I want to enter the date in Q26, find it in the Range C5:AD5 and hilight the column where it is found. Attached is a slim version of my spreadsheet. Thanks in advance for your help.
Gary