VBA code required not to execute during certain date and time range

[mchilapur]

Dear all,
I want to restrict my VBA module to not to run between certain date and time range of every month, irrespective of which year it is.
Like, a pop-up message must tell the user that this module cannot be used now.
Date restriction is: Between 15th to 20th of every month
(irrespective of month and year)
Time restriction is: Between 10AM to 12PM everyday.

Include these conditions in nested IF loops.

Plz help.
Thanks.

[mikeTRON]

Option Explicit

Sub dateIf()
    Dim DateToday As Date
    
    DateToday = Date

    If Day(Date) >= 15 Or Day(Date) <= 20 Then
        MsgBox Date & " is between the 15th and 20th of the month so the vba will exit"
            Exit Sub
    End If
    
    'Do other Work if NOT between that date
    
End Sub

[sktneer]

Maybe this.....

Sub YourMacroName()

'Variable declaration required for your code


If TimeValue(Now) < TimeValue("10:00:00") And TimeValue(Now) > TimeValue("00:00:00") Then
    If Day(Date) < 15 And Day(Date) > 20 Then

        'your code here


        MsgBox "You can run the code." 'Example code
    Else
        MsgBox "You can only run this code before 15th and after 20th of any month.", vbCritical, "Code Execution Not Allowed!"
    End If
Else
    MsgBox "You can only run this code between 12:00:01 AM To 09:59:59 AM.", vbCritical, "Code Execution Not Allowed!"
End If
End Sub

[mikeTRON]

Ahh, I must have missed the time restriction

[mchilapur]

Thanks....Thats works like a charm....Thanks for all your support