A Função que apresento hoje, mostra a data e a hora da última alteração que uma folha teve:O Código:Public Function DataHora(s As String) As String Application.Volatile s = "Última alteração à folha efectuada em: " & Date & " hora:" & Time DataHora = sEnd Function