DATA E HORA DA ÚLTIMA ALTERAÇÃO NA PLANILHA

 A Função que apresento hoje, mostra a data e a hora da última alteração que uma planilha foi:

Public Function DataHora(s As String) As String

    Application.Volatile

    s = "Última alteração à folha efectuada em: " & Date & "  hora:" & Time

    DataHora = s

End Function