boa tarde

segue minha contribuição.

Espero ter ajudado.

vitorhsh,

Boa tarde!

Faça assim:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count > 1 Then
        Application.EnableEvents = True
        Exit Sub
    End If
    If Target.Address = "$D$5" Then
        ActiveWorkbook.Save
    End If
    Application.EnableEvents = True
End Sub

Os dois cod deu certo dei preferência pro primeiro post

Obrigado família