reemplazar en comentario

Necesito de su ayuda please, quiero remplazar una frase o palabra en un
comentario, pero esa frase se repite en 20 comentarios, por ejemplo tengo en
un comentario
fecha: 25-mayo-2000
modificado por: cambios en el sistema
participaron: el equipo de control
Lo que yo quiero realizar es modificar solo la fecha en ves de 25-mayo-2000
colocar 03-07-2005 y lo demás que quede igual, se puede con una macro lo que
pasa es que lo hago con una macro para remplazar pero solo me funciona cuando
esta en una celda no cuando esta dentro de un comentario.
Sub RemplazarPalabra()
Dim Palabra As String
Dim Hoja As Long
Palabra = Trim(InputBox("Introduzca la palabra a buscar: "))
For Hoja = 1 To Sheets.Count
Sheets(Hoja).Activate
Cells.Replace What:=Palabra, Replacement:="03-07-2005",
LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next Hoja
End Sub
Gracias de antemano por su ayuda. : )