Tenta assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row).Value <> "" Then
Range("B" & Target.Row).Value = Now
End If
End Sub

Boa noite Will

O que vc deseja tem no link abaixo, até com uma planilha de exemplo para baixar.

http://www.tomasvasquez.com.br/blog/mic ... a-planilha

Se foi útil, clique na mãozinha.

Dê retorno.

[]s

Bom dia Patropi,

O arquivo do excel que vou colocar isso já é grande, eu tenho preocupação se o histórico não vai deixar a planilha mais pesada.
É possível fazer uma macro que limpe o histórico e deixe as últimas 10 alterações de cada aba da planilha?
Agradeço desde já.