Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xrg As Range, yrg As Range
Set xrg = Intersect(Target, Range("B9:S77"))
If Not xrg Is Nothing Then
Set yrg = Range("B9:S77").Find(CDate(Format(Date, "dd/mm/yyyy")), lookat:=xlWhole, LookIn:=xlValues)
If Not yrg Is Nothing Then
Set xrg = Intersect(yrg.Offset(, 1).Resize(, 2), xrg)
If Not xrg Is Nothing Then xrg.Select Else yrg.Offset(, 1).Select
End If
End If
End Sub