Caducar un archivo .xls que contiene macros.

Se me ocurre lo siguiente:
If Val(Year(Now()) & Format(Month(Now()), "00") <> 201006 Then Exit Sub
Colocando esta línea de código al inicio del macro (Justo debajo de Sub), antes de ejecutar el código el sistema compara si estamos en el mes que se ha especificado, en el ejemplo durante todo el mes de junio de este año se ejcutará, ya el mes siguiente no a menos que se ajuste el mes.

Que tal cardozos intente correrla poniéndola más o menos donde me indicaste, solo le cambie el parámetro del mes en mi poco entendimiento de lenguaje programador pero la sigue corriendo, aquí esta un ejemplo de la macro para ver si me pudieras ayudar.
Sub CARROS()
'If Val(Year(Now()) & Format(Month(Now()), "00") <> 201005 Then Exit Sub
' CARROS Macro
' Macro recorded 11/12/2008 by rarmendariz
'
' Keyboard Shortcut: Ctrl+m
'
    Range("A1:A7").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Delete Shift:=xlUp
    Cells.Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=RC[1]&RC[2]"
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FillDown
    ActiveWindow.SmallScroll Down:=-42
End Sub