This is a sub I wrote to turn off certain application features in Excel that I often toggle while running scripts. You feed it a bool and it toggles accordingly.

vbaOffAutos

Public Sub OffAutos(ByVal bolState As Boolean)

    If bolState = True Then
        With Application
            .Calculation = xlCalculationManual
            .ScreenUpdating = False
            .DisplayAlerts = False
            .AskToUpdateLinks = False
        End With
    Else
        With Application
            .Calculation = xlCalculationAutomatic
            .ScreenUpdating = True
            .DisplayAlerts = True
            .AskToUpdateLinks = True
        End With
    End If

End Sub