استدعاء كود في حدث ورقة العمل

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

Private Sub Workbook_Open()

    Dim c As Range

    For Each c In ThisWorkbook.Worksheets("Main").UsedRange

        If c.Value2 = CDbl(Date) Then c.Select: Exit For

    Next c

End Sub