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
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 22/08/2017 10:48 am