Help to sort coloumns

Hello,

I need help to write a macro that sorts coloumns in the user specified order

EG

WorkSheet 1 has 45 coloumns with headers like Customer, Name, Open Time, Status, Version etc... These values are in Range("A1:CA1")

I want to write a macro that searches for a text and moves it as the first coloumns.

For eg: If Cell1.value = "Customer" then this should be the first coloumn. Column 2 should be Status, Column 3 should be Open Time etc.

Please help/