VBA Code improvement

[jrlopez]

Hello guys, recently I've been able to code an Excel workbook to be able to be saved and then clear the original content as well as give a ticket number, now I want to improve it, I want the workbook to be saved with an extra which is a name for the workbook as well as the ticket number, I want to add it to my code which is here but I don't know where should I add it or if any changes need to be made.

Sub SaveDuplicate ()

Dim vWBold As String

Range ("H9").Value = Range ("H9").Value + 1
vWBOld = ActiveWorkbook.FullName
Application.Dialogs(xlDialogSaveAs).Show
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs (vWBOld)
Sheets("Sheet1").Range("B6:B13").ClearContents

End Sub

I would also like to know if I can automatically change where it should be saved, meaning that Everytime anyone pushes the button to save the workbook and clear it after, the saved workbook goes to onedrive or SharePoint.

Thank you!!

 

[PeteWright]

Hi @jrlopez
I need a little more input or information of what you're planning to do.

Where does the ticket number come from and where does it go?
Should the workbook be saved automatically as a copy with a file name suffix or manually with the filename already shown as a suggestion?

I can't figure out what you're trying to achieve with your code.
Could you describe it in detail?

Best regards