循环不起作用 - Excel VBA

Question

For some reason this Array isnt working! What could be wrong? Basically it is supposed to loop through every worksheet and give the same header to each worksheet.

WorksheetNames = Array("Sheet1", "Sheet2")
For Each ws In WorksheetNames
    With Worksheets(ws)
        .Range("F1").FormulaR1C1 = "PSTRIK"
        .Range("A1").FormulaR1C1 = "PRECID"
        .Range("C1").FormulaR1C1 = "PEXCH"
        .Range("J1").FormulaR1C1 = "PQTY"
        .Range("G1").FormulaR1C1 = "PCTYM"
        .Range("D1").FormulaR1C1 = "PFC"
        .Range("B1").FormulaR1C1 = "PACCT"
        .Range("K1").FormulaR1C1 = "PPRTCP"
        .Range("E1").FormulaR1C1 = "PSUBTY"
        .Range("H1").FormulaR1C1 = "PSBCUS"
        .Range("I1").FormulaR1C1 = "PBS"
    End With
Next ws

Answer 1

I suspect something like this is what you're looking for:

Sub tgr()

    Dim ws As Worksheet
    Dim aHeaders As Variant

    aHeaders = Array("PRECID", "PACCT", "PEXCH", "PFC", "PSUBTY", "PSTRIK", "PCTYM", "PSBCUS", "PBS", "PQTY", "PPRTCP")

    For Each ws In ActiveWorkbook.Sheets
        Select Case ws.Name
            'any worksheet names listed here won't have their headers updated
            Case "NoUpdate", "Leave Alone"
                'Do nothing

            'Update headers for all other sheets
            Case Else
                ws.Range("A1").Resize(, UBound(aHeaders) - LBound(aHeaders) + 1).Value = aHeaders
        End Select
    Next ws

End Sub