I would like some code to save the current workbook as the current name with the number 2 on the end of the name. And save it to the same path as the current file.
Thanks!
Bob Phillips
10-21-2008, 10:18 AM
With ActiveWorkbook
Filename = Left(Filename, InStrRev(Filename, ".") - 1)
.SaveAs Filename & 2
End With