Excel vba: saving multiple worksheets as new files

Sub  create a file ()

' Define the name of the text file 
Dim file As String, arr, i

' Specify the name of the text file 
file = ThisWorkbook.Path & "\ File name to be copied .xlsx"

' Hereunder Array List the names of all worksheets that need to be copied 
Worksheets(Array("sheet1", "sheet2", "sheet3")).Copy
 
Set wbNew = ActiveWorkbook
 
With wbNew
 
    ActiveWorkbook.SaveAs Filename:=file .Close
 
End With
 
End Sub