Compile error wrong number of arguments or invalid property assignment [VBA], Sheets highlighted in blue

Question

The code runs without throwing an error message. It appears when I click on the Functional Lead Workbook(macro) button in the workbook. I only added three new resource groups to the code (Functional Safety Manager, Controls Engineering and Systems Engineering). Private Sub Create Functional Lead workbook was auto highlighted in yellow and on line 2607, the word Sheets is bolded in blue. What am I doing wrong?

Private Sub Create_Functional_Lead_Workbook()
' This function creates the Functional Lead Workbook from the existing Dashboard tabs.

2583: Dim vSheetNames, vSheet As Variant
2584: Dim sMessage, sSheetName As String
2585: Dim wbMaster As Workbook
2586: Dim astrLinks As Variant
2587: Dim i As Integer
2588: Dim UpdatingOn As Boolean

2590: If Not Me.Range("S41") Then On Error GoTo ErrTrap
2591: bAbort = False

2593: sSheetName = "Data Flow Project-Excel-Pro"
2594: UpdatingOn = Worksheets(sSheetName).Range("S39").Value

2596: Application.DisplayStatusBar = True

2598: Set wbMaster = ThisWorkbook
2599: vSheetNames = Array("Product Line Management", "Program Management", "Product Engineering", "Industrialization", "Plant Operations", "Quality (Corporate)", "Quality (Site)", "Purchasing", "Sales", "Supply Chain", "IT(IS)", "Finance", "Legal", "Aftermarket", "Test Lab", "HR", "Customer Service", "Supplier Development", "Global Product Strategy", "Specifications", "Content Management", "Value Added Services", "Pricing", "Marketing", "Training Group", "Core Manager", "Cost Accounting", "PMO (Aft Mkt)", "Functional Safety Manager", "Controls Engineering", "Systems Engineering")

2601: For Each vSheet In vSheetNames
2602:    wbMaster.Worksheets(vSheet).Unprotect
2603: Next vSheet

'Copying Sheets to a new workbook.
2606: Application.StatusBar = "Copying Sheets to a new workbook."
2607: Sheets(Array("ImportedtoMSProjects", "Product Line Management", "Program Management", "Product Engineering", "Industrialization", "Plant Operations", "Quality (Corporate)", "Quality (Site)", "Purchasing", "Sales", "Supply Chain", "IT(IS)", "Finance", "Legal", "Aftermarket", "Test Lab", "HR", "Customer Service", "Supplier Development", "Global Product Strategy", "Specifications", "Content Management", "Value Added Services", "Pricing", "Marketing", "Training Group", "Core Manager", "Cost Accounting", "PMO (Aft Mkt)", "Functional Safety Manager", "Controls Engineering", "Systems Engineering")