EXCELer

Por vezes, podemos ter a necessidade de utilizar um formato novo no cabeçalho de uma impressão, como, por exemplo, a referência à data actual:



O Código:

Sub Muda_Formato_Data()
    ActiveSheet.PageSetup.CenterHeader = Format(Now, "DD MMMM, YYYY")
End Sub