Sub IncrementSheetNums()
Range("A1").Value = Range("A1").Value + 1
End Sub
this part will give you an ancrementing number, whatevers in A1 will be incremented by 1, if nothing there to start with then it will start at 1
Sub SaveEstimate()
Dim NewFN As Variant
ActiveSheet.Copy
NewFN = "M:\Estimating\Estimating 2012"&Range("A1").Value &"xlsx"
ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close
NextIncrementSheetNums
End Sub
this part will save to the directory mentioned with an xlsx format, change to earlier version if you require then just allocate a button to run the macro
Bookmarks