VBA Error Handling to turn Functionality Back On

[oblix]

Hi there

In my macro/Subs I start with Call Turn Functionality off (sub) and at the end Call Turn Functionality On (sub)
This are macros to turn certain things on and off to speed up calculations and stop screen flickering
If the macro is interupted or error occures, can I add error handling to at least turn functionality back on
I Have provided a sample of one of the subs if someone could assist to show how to add error handling:

Sub FILTER_PERMEXPORT()

   TurnOffFunctionality
    
    ThisWorkbook.Worksheets("Perm Transfer").Range("O3:Z1000").ClearContents
    
    Sheets("PERMENANT LIVING IN REGISTER").Range("C4:AV500").AdvancedFilter Action _
                      :=xlFilterCopy, CriteriaRange:=Range("'Perm Transfer'!Criteria_P"), _
                      CopyToRange:=Range("'Perm Transfer'!Extract_P"), Unique:=False
    
    Call Sort_perm2
   
        
    TurnOnFunctionality
    
End Sub

I will then attemp to do the rest with other macros
Thank you

 

[dmt32]

Hi,
try

Sub FILTER_PERMEXPORT()

   On Error GoTo myerror
   TurnOffFunctionality
   
    ThisWorkbook.Worksheets("Perm Transfer").Range("O3:Z1000").ClearContents
    
    Sheets("PERMENANT LIVING IN REGISTER").Range("C4:AV500").AdvancedFilter Action _
                      :=xlFilterCopy, CriteriaRange:=Range("'Perm Transfer'!Criteria_P"), _
                      CopyToRange:=Range("'Perm Transfer'!Extract_P"), Unique:=False
    
    Call Sort_perm2
  
       
myerror:
    TurnOnFunctionality
    'report error
    If Err <> 0 Then MsgBox (Error(Err)), 48, "Error"
   
End Sub

Dave

 

[oblix]

Thank you dmt32
Just to be sure...... if the code runs complete it will stil turn on functionality although it is in myerror?

 

[dmt32]

Thank you Dave
Just to be sure...... if the code runs complete it will stil turn on functionality although it is in myerror?

If your code errors then it goes straight to the myerror label where your function is called & then msgbox display the error message.
If no error, your function will still be called but msgbox will not display.

Dave

 

[oblix]

Wow thank you