Mantener un formato en las hojas de un libro, pero q se actualize en cada hoja

hola, Carlos !

... poner un formato igual en todas las hojas de un libro
... que ... se actualize en cada pagina correlativamente
... que en la primera hoja, en una celda ponga 13/04
... en la siguiente hoja, en la misma celda ponga 14/04
... en la siguiente 15/05 y asi sucesivamente.

aunque 'se me pierde' [o no encuentro] la 'relacion' de la numeracion 'correlativa' 13/04, 14/04, 15/05, etc.
[y mientras aportas mas datos 'significativos', como... 'el para y el por'...-que- de dicha 'necesidad']
prueba poniendo las siguientes lineas/macro...
saludos,
hector.
en el modulo de codigo 'del libro' [ThisWorkbook] ==Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If TypeName(Sh) <> "Worksheet" Then Exit Sub
With Worksheets(Sh.Name)
Sh.Range("a1") = .Index + 12 & "/" & Format(.Index + 2, "00")
End With
End Sub