VBA: Find column name and rename

[FryGirl]

I've been looking at some examples from the web and think I'm close, but apparently missing something.

I'm trying to rename specific column headers with the 2nd array. As a bonus, I would like to highlight that particular column header so I can delete everything else that is not a colored column header.

Sub aTest()
    Dim myArray1() As Variant
    Dim myArray2() As Variant
    Dim i As Long
    
    myArray1 = Array("Header 1", "Header 3", "Header 6", "Header 8", "Header 13")
    myArray2 = Array("Order #", "Quantity", "Amount", "Region", "Dest")
    
    With Sheets(1)
        For i = LBound(myArray1) To UBound(myArray1)
            .Rows(1).Find(myArray1(i)).Value = myArray2(i).Value
        Next i
    End With
    
End Sub

 

[alansidman]

deleted