Visual Basic - Problema Macro Word Visual Basic

Saludos!

Estoy intentado hacer un Macro de Word para que me actualitzé unas fechas. La tenía de antes pero toqué alguna cosa, que no se que es, y al ejecutarla no pasa nada, alguien tiene alguna solución al problema?

Grácias de antemano.

MACRO:
-----------

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 28/11/10 por JB
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "v7pl1"
.Replacement.Text = Format(Day(Date), "00") + Format(Month(Date), "00") + Format(Year(Date), "0000")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v7pl2"
.Replacement.Text = Month(Date + 137) & "-" & Year(Date + 137)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory
End SubSub Macro1()

no sera la ultima linea de tu codigo, pues creas de nuevo la macro, borra Sub Macro1() de esta linea
End SubSub Macro1()

Saludos jcmg,
Primero, darte las grácias por ayudarme con esto puesto que hace tiempo que tengo el problema y me es de suma importáncia tenerlo cuánto antes mejor.
He actualizado el código tal y como lo dices y me quedó de la siguiente forma:

' Macro1 Macro
' Macro grabada el 28/11/10 por JB
'
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "v7pl1"
.Replacement.Text = Format(Day(Date), "00") + Format(Month(Date), "00") + Format(Year(Date), "0000")
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v7pl2"
.Replacement.Text = Month(Date + 137) & "-" & Year(Date + 137)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.HomeKey Unit:=wdStory

End Sub


Y cuando lo ejecuto me sale el siguiente error:
"Error de compilción: El procedimiento externo no es válido"

El Sub Macro 1 () y el End Sub tengo que ponerlos sí o sí.

¿Alguna otra sugerencia?

Repito, grácias de antemano.

Una macro enpieza con un Sub {nombre_macro}() y finaliza con un Sub End



La macro corregida (a parte de lo que haga) seria asi:

MACRO:
-----------