VBA on exit code tweak

[MOB]

I have this code;

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Worksheets("test").Range("A1:A11").Clear
End Sub

Its in a template spreadsheet that gets repeatedly populated and saved as other filenames.

I want this code to run only on the template version, not on the saved as versions.

Is there a clever way I can achieve this?

TIA

 

[dmt32]

Hi,
see if this does what you want

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With ThisWorkbook
        If .Name = "YourTemplateName.xlsm" Then .Worksheets("test").Range("A1:A11").Clear
    End With
End Sub

Change name shown in RED as required

Dave

 

[MOB]

Thanks Dave!

 

[dmt32]

Thanks Dave!

welcome - glad suggestion helped.

Dave