Como hacer que mi macro solo funcione los días lunes

Sub tuMacro()
If Weekday(Date) = vbMonday Then
    MsgBox "La macro solo puede ser ejecutado los días lunes"
    Exit Sub
End If
'Acá ejecuta la macro
End Sub

Salu2

Private Sub CommandButton4_Click()
If Weekday(Date) = vdMonday Then
    MsgBox "Corte solo disponible los dias Lunes"
Exit Sub
Else
    UserForm2.Show
End If
End Sub

Lo puse así como se muestra y no la bloquea, que donde estoy fallando?

Fijate que escribiste vdMonday pero es vbMonday

Salu2

¡Gracias! 

Eh echo el cambio pero aun así, no reconoce la instrucción.  

Sabés ejecutar una instrucción 'paso a paso', si es así, ejecutalo hasta la instrucción IF y en ese momento en la ventana de Inmediato, mira el resultado de la función Weekday, mediante

? Weekday(Date)

Debería quedarte algo más o menos así:

Solo se queda hasta ahí pero no sale la ventana de inmediato. 

Ya lo hice pero aun así no, reconoce la instrucción.