I am attempting to use Cell I8 as the reference for the date i am searching for. I can enter the date via a Calendar Form or manually type it in I8.
I have used the below code before to achieve this in another worksheet which finds the date in a column and highlights the row. Now i want to find the date in row 14 and highlight the column, and have excel center on the column if possible. It does this for my other worksheet. I am not sure why it isn't working now.
Any help would be appreciated.
Sub FindSelectedDate()
Dim DateRngS As Range, DateCell As Range
Dim EntireColumn
Dim Interior
Set DateRng = Range("T14:OX14")
For Each DateCell In DateRng
If DateCell.Value = Range("I8") Then DateCell.Select
Next
With Selection
.EntireColumn.Select
End With
End Sub
Bookmarks