SaveAs filename not able to save multiple sheets to a new workbook

[ChanL]

Hi all,
I have a template with four sheets with name "main", "part 1", "part 2", "part 3"
After i put in info in sheet part 1, part 2 , part3, i would like to save the sheets into a new workbook (all sheets in the same workbook)
i came up with a VBA code but it only manage to save sheet part 3.

Set dessh1=thisworkbook.sheets("part 1")
set dessh2=thisworkbook.sheets("part 2")
set dessh3=thisworkbook.sheets("part 3")

dessh1.copy
dessh2.copy
dessh3.copy
Activeworkbook.saveas filename := "EKYC" & "report name" & ".xlxs"

 

[Fluff]

How about

   ThisWorkbook.Sheets(Array("part 1", "part 2", "part 3")).Copy
   Activeworkbook.saveas filename := "EKYC" & "report name" & ".xlxs"