Headers

[kenpcli]

I have two worksheets that each need different headers added to row. When I use this:
Dim headers() As Variant
Dim wb As Workbook


Application.ScreenUpdating = False 'turn this off for the macro to run a little faster
ActiveWorkbook.Worksheets("AnalysisEnd").Select
Set wb = ActiveWorkbook


headers() = Array("Merge Cells", "Site", "Ins. Co.", "Chg Amt", "Pay Amt", "Adj Amt", _
"Ref Amt", "Bal Amt", "Amount Billed", "CA%")


With ws
.rows(5).Value = "" 'This will clear out row 5
For i = LBound(headers()) To UBound(headers())
.Cells(5, 1 + i).Value = headers(i)
Next i
.rows(5).Font.Bold = True
.rows(5).Font.ColorIndex = 50
End With

It gives all my sheets the same header rows.

 

[footoo]

The code you posted is incomplete.
Where's the second worksheet?
What sheet is assigned to ws?

Code for sheet "AnalysisEnd" only :

Dim headers() As Variant, i%, c%


headers() = Array("Merge Cells", "Site", "Ins. Co.", "Chg Amt", "Pay Amt", "Adj Amt", _
    "Ref Amt", "Bal Amt", "Amount Billed", "CA%")
c = UBound(headers())


Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("AnalysisEnd").Select


Rows(5).ClearContents


For i = LBound(headers()) To c
    Cells(5, 1 + i).Value = headers(i)
Next i


With [A5].Resize(, c + 1)
    .Font.Bold = True
    .Font.ColorIndex = 50
End With


Application.ScreenUpdating = True

 

[kenpcli]

Here is the second sheet:

ActiveWorkbook.Worksheets("CA Site Sub Total").Select
Set ws = ActiveWorksheet

headers() = Array("Merge Cells", "Site", "Ins. Co.", "Ins1 Amt", "Ins2 Amt", "Ins3 Amt", _
"Pat Amt", "Unappld Amt", "0-30", "31-60", "61-90", "91-120", "121-150", "151-180", "181-up", "Ln itm Amt", _
"c/a%", "c/a", "Charges After", "CA After", "CA Total", "1230-TB", "GL Code-1", "Desc-2", "DEBIT-3", "CREDIT-4")
With ws
.rows(5).Value = "" 'This will clear out row 5
For i = LBound(headers()) To UBound(headers())
.Cells(5, 1 + i).Value = headers(i)
Next i
.rows(5).Font.Bold = True
.rows(5).Font.ColorIndex = 50
End With

 

[footoo]

Dim headers() As Variant, i%, c%
headers() = Array("Merge Cells", "Site", "Ins. Co.", "Chg Amt", "Pay Amt", "Adj Amt", _
    "Ref Amt", "Bal Amt", "Amount Billed", "CA%")
c = UBound(headers())
Application.ScreenUpdating = False
Worksheets("AnalysisEnd").Select
Rows(5).ClearContents
For i = LBound(headers()) To c
    Cells(5, 1 + i).Value = headers(i)
Next i
With [A5].Resize(, c + 1)
    .Font.Bold = True
    .Font.ColorIndex = 50
End With
Rows(5).Copy Sheets("CA Site Sub Total").Rows(5)
Application.ScreenUpdating = True

 

[kenpcli]

The headers on each worksheet are different so copying them wont work.

 

[footoo]

Well run the code for each sheet (with a different array, of course).

 

[kenpcli]

I do call out each sheet separately but it still changes both sheets to last sheets headers.

 

[footoo]

Sub vv()
Dim headers() As Variant, i%, c%, h2()
headers() = Array("Merge Cells", "Site", "Ins. Co.", "Chg Amt", "Pay Amt", "Adj Amt", _
    "Ref Amt", "Bal Amt", "Amount Billed", "CA%")
c = UBound(headers())
Application.ScreenUpdating = False
Worksheets("AnalysisEnd").Select
Rows(5).ClearContents
For i = LBound(headers()) To c
    Cells(5, 1 + i).Value = headers(i)
Next i
With [A5].Resize(, c + 1)
    .Font.Bold = True
    .Font.ColorIndex = 50
End With
h2() = Array("Merge Cells", "Site", "Ins. Co.", "Ins1 Amt", "Ins2 Amt", "Ins3 Amt", _
    "Pat Amt", "Unappld Amt", "0-30", "31-60", "61-90", "91-120", "121-150", "151-180", "181-up", "Ln itm Amt", _
    "c/a%", "c/a", "Charges After", "CA After", "CA Total", "1230-TB", "GL Code-1", "Desc-2", "DEBIT-3", "CREDIT-4")
c = UBound(h2())
Worksheets("CA Site Sub Total").Select
Rows(5).ClearContents
For i = LBound(h2()) To c
    Cells(5, 1 + i).Value = h2(i)
Next i
With [A5].Resize(, c + 1)
    .Font.Bold = True
    .Font.ColorIndex = 50
End With
Application.ScreenUpdating = True
End Sub

 

[kenpcli]

Thank you, I think my problem was that I didn't rename the header 1 and 2, it just had header so it copied the most recent header even though I called out that sheet.