VBA Code to duplicate workbook

[mrexcelhelp123]

HI There again,

Any existing VBA code out there already that I can use to :

Duplicate an active open workbook and prompt user for a new filename before saving

Thanks!

 

[Trevor G]

Here are a couple of options:


Sub TryThis()
Dim sFileName As String
sFileName = Application.GetSaveAsFilename
If sFileName = "False" Then Exit Sub
ActiveWorkbook.SaveAs sFileName
End Sub

.....OR
Sub TryThis()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Also check out the archive area of this site to aid with other questions:

http://www.mrexcel.com/archive/VBA