Select today's date

[Reec0n]

I have a sheet with dates for the whole year running from B2 all the way to NB2 for all of 2018.

When I open the sheet I would like today's the date to be highlighted and potentially the whole column.

If it's easy to simply do the date, that will suffice.

tia all

 

[wideboydixon]

Right click the tab name, select "View Code" and paste the following:

Private Sub Worksheet_Activate()

Cells(2, Date - Range("B2").Value + 2).EntireColumn.Select

End Sub

WBD

 

[mumps]

Another alternative:

Private Sub Worksheet_Activate()
    Dim LastRow As Long
    LastRow = Sheets("Sheet1").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Dim foundDate As Range
    Set foundDate = Sheets("Sheet1").Rows(2).Find(Date, LookIn:=xlFormulas, lookat:=xlWhole)
    If Not foundDate Is Nothing Then
        Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, foundDate.Column), Sheets("Sheet1").Cells(LastRow, foundDate.Column)).Interior.ColorIndex = 3
    End If
End Sub

Place the macro in the worksheet code module.