PDA

View Full Version : VBA Save As



impius
10-21-2008, 09:59 AM
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