Use this in the code module of the specific sheet where you make changes
Code:Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("C:C")) Is Nothing Then Application.DisplayAlerts = False ThisWorkbook.Save Application.DisplayAlerts = True End If End Sub




Reply With Quote
Bookmarks