Private Sub Workbook_Open()
Dim x, rng As Range, cl As Range, r As Long, c As Long
x = Month(Date)
If x >= 1 And x <= 4 Then
r = 4
ElseIf x >= 5 And x <= 8 Then
r = 13
ElseIf x >= 9 And x <= 12 Then
r = 22
End If
If x = 1 Or x = 5 Or x = 9 Then
c = 2
ElseIf x = 2 Or x = 6 Or x = 10 Then
c = 10
ElseIf x = 3 Or x = 7 Or x = 11 Then
c = 18
ElseIf x = 4 Or x = 8 Or x = 12 Then
c = 26
End If
With ThisWorkbook.Worksheets("Main")
Set rng = .Range(.Cells(r + 2, c), .Cells(r + 7, c + 6))
For Each cl In rng
If cl <> "" Then
If Day(cl.Value) = Day(Date) Then
cl.Select
End If
End If
Next cl
End With
End Sub