Hi all, I am currently using the below code to extract data from various sources workbooks, and place into a single destination workbook. Problem is, although a unique name is given (todays date), unfortunately any subsequent files created on the same day are given the same name and are replacing the orginal file. I do not want this to happen, and would like any subsequent files be given the option of either replacing or a save as. With 'screen updating' on, it sort of works, but when you enter OK, it errors out. Any assistance given will be appreciated. Many thanks.
Application.ScreenUpdating = False
Selection.AutoFilter Field:=1, Criteria1:="<>x", Operator:=xlAnd
Application.CutCopyMode = False
ActiveWorkbook.SaveAs FileName:="\\Ooc-fls-01\CPSU\CPSU MASTER\New Invoicing\Invoice Batches\" & Format(Date, "yyyy mmmm dd") & ".xls"