Hi
I have a question about the below code:
Private Sub Workbook_Open() Dim CellToShow As Range
Worksheets("Smart City Projects Schedule").Select
x = DateTime.Date
Set CellToShow = Worksheets("Smart City Projects Schedule").Rows(6).Find(What:=x, LookIn:=xlValues)
If...