here is my dealioSub fullmacsro() Worksheets("1 Invoice Notes").Unprotect Password:="button" Worksheets("2 Invoice Print").Unprotect Password:="button" Worksheets("4 Register").Unprotect Password:="button" FillCells TodaysDate PostToRegister SavePdf SaveXLMFile NextInvoice Worksheets("1 Invoice Notes").Protect Password:="button" Worksheets("2 Invoice Print").Protect Password:="button" Worksheets("4 Register").Protect Password:="button" End Sub
thanks
Bookmarks