Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub Sub NextInvoice() Sheets("InvoiceB").Range("F5").Value = Sheets("InvoiceB").Range("F5").Value + 1 'Range(“A20:E39”).ClearContents End Sub Sub SaveInvWithNewName() Dim NewFN As Variant ActiveSheet.Copy NewFN = “C:aaaInv” & Range(“F5”).Value & “.xls” '<-get compile error here not sure why? ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close NextInvoice End Sub