Thanks for you input


I have amended the code and get a run time error and code below is highlighted

Method 'Saveas' of object method_Workbook failed


   ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "BR1 Sales Upload" & ".xls", FileFormat:=xlExcel9795

Kindly test and amend