Roy, you forgot to reverse the properties and variables when restoring you code.

        'your code here

        'restore settings
        .ScreenUpdating = bScreenUpdating
        .DisplayAlerts = bDisplayAlerts
        .EnableEvents = bEnableEvents
        .Calculation = lCalculate