Save as backup but stay in current File

[DenverWill81]

Okay... this seems tricky and I don't have any good examples of code to post but here's what I'm trying to do...

I have this userform:

The XXXX part will refer to a project name based on which 'Delete' button was click and I think I can figure that out.
Clicking "Yes" will just plow forward with the project deletion macro.
Clicking will "End" all macros.
And what I'd like to have happen when you click the "Save Backup" button is for a macro to save a back up file with the same name as the current one plus YYMMDD_HH:MM but stay in the current file? So just create a backup to the side without actually switching to the backup. I could also do a Save As with the time stamp and then reopen the original file but I'm not sure if that would work in the middle of a macro.

Is that even possible?

 

[Domenic]

Use the SaveCopyAs method of the Workbook object instead . . .

Workbook.SaveCopyAs method (Excel)

Office VBA reference topic

docs.microsoft.com

Hope this helps!

 

[DenverWill81]

Use the SaveCopyAs method of the Workbook object instead . . .

Workbook.SaveCopyAs method (Excel)

Office VBA reference topic

docs.microsoft.com

Hope this helps!

Holy Cow! That worked instantly - Bravo sir!
Thanks for the help!

 

[DenverWill81]

Holy Cow! That worked instantly - Bravo sir!
Thanks for the help!

Here's what I ended up going with for people with the same question in the future:

Private Sub CommandButton2_Click()

    Dim WB As String
    Dim DT As String
    
    WB = Replace(Application.ActiveWorkbook.Name, ".xlsm", "")
    DT = format(CStr(Now), "YYMMDD_HHMM")

    ThisWorkbook.SaveCopyAs WB & " " & DT

    Unload Me
    Call DeleteSingleProject

End Sub

 

[Domenic]

It seems to me that the file extension is needed, no?

ThisWorkbook.SaveCopyAs WB & " " & DT & ".xlsm"

 

[DenverWill81]

It seems to me that the file extension is needed, no?

ThisWorkbook.SaveCopyAs WB & " " & DT & ".xlsm"

Oh, yes indeed. Good catch!

Now I'm having trouble with the label that I was so confident I could figure out...
Please let me know if I need to post this to a new thread.

Here's what I have so far...
The macro that calls this Userform begins like this:

Sub DeleteSingleProject()

    ' Identify which Delete button called the macro
    Dim s As Shape
    Set s = ActiveSheet.Shapes(Application.Caller)
    ' Identify the Project Name
    Dim Pname As range
    Set Pname = range(s.TopLeftCell.Address).Offset(, 1)
    ' Identify the Project Number
    Dim Pnum As range
    Set Pnum = range(s.TopLeftCell.Address).Offset(, 16)

DeleteSingleProjectUF.Show

Then over in the UserForm I have this:

Private Sub DSPUF_Initialize()

Private Sub DSPUF_Initialize()

Me.Label1.Caption = "Are you sure you want to delete " & Pname & "?" & vbNewLine & vbNewLine & "Click Yes to move forward, Save As to save a new version before deletion, or Cancel."

End Sub

End Sub

I was hoping the Userform would use the variable from the DeleteSingleProject macro to dynamically update the message but all I keep getting is "Label1" like this:

Does it have something to do with the label properties or am I way off?

 

[Domenic]

Yes, please start a new thread for your new question.

Cheers!