Saving as new spreadsheet

[dpaton05]

I am trying to create code to save my workbook, then save it again as a string entered in a textbox. I then want it to close the new workbook and reopen the original one. The workbook name can change so I can't use the name of the workbook as a reference point. I have this code so far:

Private Sub cmdNewTool_Click()
    With ActiveWorkbook
        .Save
        .SaveAs txtNewDoc.Text & ".xlsm"
        .Close
    End With
    Workbooks.Open Application.RecentFiles(1)
End Sub

This code saves it, saves it again as the new workbook, closes it, then reopens excel but doesn't open the last workbook that I saved the new workbook from. Can someone help me get the original workbook to open please?

 

[dpaton05]

I use the save copy as and it make a new copy of the file and then I was going to open the file, make the changes then close it. I have this so far

Private Sub cmdNewTool_Click()
Dim newDoc As String
    newDoc = txtNewDoc.Text & ".xlsm"
    
    ActiveWorkbook.SaveCopyAs Filename:=txtNewDoc.Text & ".xlsm"

but I wasn't sure of the syntax to open the file.