Column Order from List

[Big_Dawg]

Looking for a dynamic macro to reorder columns in a worksheet from a list of column headings Column A in another worksheet.

 

[AlphaFrog]

This may help start you on your way.

Move Columns Based on Header

 

[Big_Dawg]

I have this down. Struggling with the array coming from a list.

I need the array to come from a list from another worksheet.

How to change below to reference list from worksheet?

arrColOrder = Array("Header1", "Header2", "Header3", "Header4", "Header5", _
"Header6", "Header7", "Header8", "Header9", "Header10")

 

[AlphaFrog]

The red is the sheet and range with the column order list.

Sub Reorder_Columns()
    
    Dim cell As Range
    Dim Found As Range
    Dim counter As Integer
    
    counter = 1
    
    Application.ScreenUpdating = False
    
    For Each cell In [COLOR="Red"]Sheets("Sheet1").Range("A1:A10")[/COLOR]
    
        Set Found = Rows("1:1").Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole, _
                          SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
        
        If Not Found Is Nothing Then
            If Found.Column <> counter Then
                Found.EntireColumn.Cut
                Columns(counter).Insert Shift:=xlToRight
                Application.CutCopyMode = False
            End If
            counter = counter + 1
        End If
        
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub