Create a Macro to remove Auto_Open before saving

[AnnieLox]

Hello! I have created an Autpen Macro with about 5 call macros within it. at the end it saves the file as todays date. I need the new file to no longer Autpen, however I still would like to have access to the macros.

Is there a way to delete only the Autpen Macro in the new file, or maybe change the name of the Autpen Macro so that it doesn't automatically run when opening the new file later?

thanks for y'alls help!

 

[Joe4]

I would recommend doing the following:
Adding an IF...THEN block in your Autpen code that only runs and calls the other macros when certain conditions are met. They you can just leave the code in there, and it will only run when you want it to (based on what you have told it).

You could use something like the file name to determine whether it should run or not. Or perhaps, have your other code update some random cell somewhere that indicates that the macros have already run, then have your IF...THEN block look at that. Whatever seems to make the most sense to you.

 

[Haluk]

deleted...

 

[AnnieLox]

Hi! thank you for that idea, it still took me a few days to think of a type of IF scenario to use.

is it possible to create a macro that would be if THIS file is named STP Backup- Auto Run then proceed, else end all?

my Auto run currently looks like this, so I would need the macro to not run any of the subs that are in the lineup. I would place the macro as the first CALL and if the file isn't named "stp..." then all of the codes stop. Am I making any since?

Sub All_In_One()
Call X_PreviousDay_Backup
Call X_NewData
Call age
Call uitbr
Call xfilterdata
Call AutoSort
Call SaveAs
End Sub

 

[Joe4]

It would look something like this:

Sub All_In_One()

    Dim myFileName As String
    
'   Get file name, minus extension
    myFileName = Left(ActiveWorkbook.Name, InStr(ActiveWorkbook.Name, ".") - 1)
    
'   Only call macros if file name is "STP Backup- Auto Run"
    If myFileName = "STP Backup- Auto Run" Then
        Call X_PreviousDay_Backup
        Call X_NewData
        Call age
        Call uitbr
        Call xfilterdata
        Call AutoSort
        Call SaveAs
    End If
    
End Sub

 

[AnnieLox]

Thank you so much! it worked perfectly!!

 

[Joe4]

You are welcome.