Only column will be visible based on cell value(date)

Hi All,

I already had an idea of highlighting or activating column base on the latest date today. When the user open the workbook only column that has header of latest date will only be visible(aside column A&B) other column will be hide,is it possible?here is the piece of code that only highlight column with latest date as header.

Private Sub Workbook_Open()
Dim dte As Date, cfind As Range
Worksheets("sheet1").Activate
Range("A1").Select
ActiveSheet.Cells.Interior.ColorIndex = xlNone
dte = Date
Set cfind = Rows("1:1").Cells.Find(what:=dte, lookat:=xlWhole)
If cfind Is Nothing Then Exit Sub
cfind.EntireColumn.Cells.Interior.ColorIndex = 6
End Sub

Up for this