ActiveWorkbook.SaveCopyAs Filename:="C:\Users\Marius Filtvedt\OneDrive - Omega Industrier AS\1. OMEGA\Omega Østfold\Tilbud kunder\Tilbud Interiør" & "_" & ActiveSheet.Range("D7") & ActiveSheet.Range("XX1") & ".xls"
XX1 or whatever holds your file number
|