Save As and new workbook new name used in existing code
if wbSource is the workbook with the code then
set wbSource =ThisWorkbook
Set wbSource = Workbooks("Copy of Vehicle Quotation Internal V7a.xlsm")
Set wbDest = Workbooks("Income Report v2.xlsm")
if not then
Set wbSource = Workbooks("My New Workbook 1.xlsm")
Set wbDest = Workbooks("Income Report v2.xlsm")
Regards
Claus B.
Thanks Claus, I'll give it a go.
Howard
|