سلام این کد رو به حالت زیر تغییر میدم با نام sub گیر میده چطوری حلش کنم؟

کدی که سالمه اما وقتی به صورت کد بعدی تغییر میدم قاطی میکنه
کد:
Sub barq()
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheet1.Range("a1") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, Password:=Sheet1.Range("a2").Value
End Sub
کد بیمار:

کد:
Sub barq()Sheets(Array(Sheet2.Name)).Copy
 ActiveWorkbook.SaveCopyAs Filename:="D:\Archive\NOT" & "\" & Sheet2.Range("A1") & "\" & Sheet6.Range("B3") & "\" & Sheet11.Range("n2").Value & ".xlsx", Password:=Sheet11.Range("n2").Value
        ActiveWorkbook.Close SaveChanges:=False
End Sub
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.