Hello there,
Below is the code you would use. You would manually need to select the sheet and then run the macro below. Also, you will need to insert the beginning of your file path into where I have instructed below.
Let me know if you have any questions! Thanks!
Sub macro2()
Dim wbNew As Workbook
ActiveSheet.Select
ActiveSheet.Copy
Set wbNew = ActiveWorkbook
With wbNew
ActiveWorkbook.SaveAs Filename:= _
"your file path goes here" & Range("G4").Value & ".xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
.Close
End With
End Sub
Bookmarks