VBA Code

    ActiveWorkbook.KeepChangeHistory = True 
    ActiveWorkbook.SaveAs _ 
        Filename:= "C:\Personal\Clients\Cust A.xls", _ 
        AccessMode:= xlShared 
    With ActiveWorkbook 
        .HighlightChangesOptions When:=xlAllChanges 
        .ListChangesOnNewSheet = False 
        .HighlightChangesOnScreen = True 
    End With 

    ActiveWorkbook.Save 
    With ActiveWorkbook 
        .HighlightChangesOptions When:=xlHighlightChangesTime.xlAllChanges 
        .ListChangesOnNewSheet = True 
        .HighlightChangesOnScreen = True 
    End With 
    ActiveWorkbook.Save 

ActiveWorkbook.AcceptAllChanges(When,Who,Where) 

When - specifies when all the changes are accepted
Who - Specifies by whom all the changes are accepted ("Everyone")
Where - Specifies where all the changes are accepted