Ejecución de Una Macro dentro de un periodo de tiempo

H o l a:

Pon las siguientes líneas al principio de tu macro:

Sub Transfiere()
    '
    Dim ini As Date, fin As Date
    ini = "10/06/2015"
    fin = "31/07/2015"
    If Not (Date >= ini And Date <= fin) Then
        Exit Sub
    End If
    '
    'Continúa tu macro
    '
    '...
    '
End Sub

Funciona muy bien, si quisiera hacer la siguiente variante, o sea, una ves se cumpla el periodo que me salga un mensaje para introducir un código y poder alargar 10 días más a la fecha final.

Por favor ayúdame en esto, te lo agradezco mucho