One time macro, only on open of specific file name.

[Hootywho]

The title probably does not describe my issue.
I am using code on a "Master" file to automatically change the file name and add the current date on the end upon opening. Is there anyway to disable that macro automatically on the new file created?

The following is the code I call when master file opens...

Sub Save_File_As()
'   This macro is used to change the name of the file when initially opened to add the date at the end
'   and close the master file. 

    Dim file_name As Variant
    file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file (*.xls), *.xls")
    If file_name <> False Then
      ActiveWorkbook.SaveAs "New File Name" & " " & Format(Date, "dddd mm-dd-yyyy")
  
    End If
    Sheets("Sheet Name").Select
    Range("c4").Select
    ActiveWorkbook.Save
    End Sub

 

[AlphaFrog]

Put an IF statement to test if the current name is New File Name.xls where NewFile Name is the actual name of your Master fie. If it is not currently New File Name then exit the macro.

Sub Save_File_As()
'   This macro is used to change the name of the file when initially opened to add the date at the end
'   and close the master file.

    Dim file_name As Variant
    
    If ThisWorkbook.Name = "[COLOR="Red"]New File Name[/COLOR].xls" Then
    
      file_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file (*.xls), *.xls")
      If file_name <> False Then
        ActiveWorkbook.SaveAs "New File Name" & " " & Format(Date, "dddd mm-dd-yyyy")
    
      End If
      Sheets("Sheet Name").Select
      Range("c4").Select
      ActiveWorkbook.Save
    
    End If
    
End Sub

Change "New File Name" to your actual name of the Master workbook.

 

[Hootywho]

AlphaFrog,

That worked perfect!! Thank You for your help!!