Сортировка столбцов макросом Excel

[STaysonss]

Доброго времени суток!
Существует ли какой нибудь способ отсортировать столбцы на листе Ексель макросом по первой строке выделенных столбцов? Записанные действия макрорекордером после подвески его кода на кнопку не выполняются..

[Aleksandr H.]

Sub Макрос2()
    Dim wd As Worksheet
'
' Макрос2 Макрос
' Макрос записан 25.10.2016 (Admin)
'
For Each wd In Worksheets(Array("1", "2", "3"))
'
    wd.Columns("B:G").Sort Key1:=wd.Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
        DataOption1:=xlSortTextAsNumbers
    
Next
Range("A4").Select
End Sub

[STaysonss]

Записанные действия даже макрорекордером после подвески его кода на кнопку не выполняются! в приложенном файле ни один из кодов не выполняется..
В чем может быть причина, Ексель 2003?! Макросы включены, т.к. при воздействии на кнопки в файле экран моргает(значит пытается выполнить), но столбцы по возрастанию не сортируются. Идентичные действия после записи макрорекордером (по алгоритму Кнопки 1) в Ексель 2007 и подвески его кода на кнопку выполняются в Ексель 2007, но выдают ошибку в Ексель 2003!!
Есть у кого нибудь мысли по правильной сортировке столбцов макросом??

[Aleksandr H.]

Сообщение от STaysonss

Идентичные действия после записи макрорекордером (по алгоритму Кнопки 1) в Ексель 2007 и подвески его кода на кнопку выполняются в Ексель 2007, но выдают ошибку в Ексель 2003!!

Ни у кого не выдают, а у него выдают. Какую ошибку, в какой строке - да хз, главно написать что ничего не работает.

Верно говорит Игорь, "никто никому здесь ничем не обязан и детально описывать что хочется получить тоже."