[color=darkblue]Sub[/color] Save_without_Calculating()
    Application.CalculateBeforeSave = [color=darkblue]False[/color]
    ThisWorkbook.Save
    Application.CalculateBeforeSave = [color=darkblue]True[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]