Сортировка столбцов в цикле - не получается никак

[giaber]

Здравствуйте!
Новичёк в макросах. Помогите пожалуйста сделать сортировку столбцов в цикле. Пробовал делать по разному, из того что нашёл в сети – ничего не получается, не понимаю эту тему совсем. Делал что-то вокруг примерно такого:

For лист = 1 To 5
        For столбец = 1 To 5
            Sheets(лист).Range(Sheets(лист).Columns(столбец), Sheets(лист).Columns(столбец)).Select
            Selection.Sort key1:=Range(Sheets(лист).Columns(столбец), Sheets(лист).Columns(столбец)), Order1:=xlDescending
        Next столбец
Next лист

И очень хотелось бы избавится от Select

Заранее благодарен!

[AndVGri]

Помогите пожалуйста сделать сортировку столбцов в цикле.

Вам же помогли тут и тут об этом вы хвастались здесь. 57 лет уже - всё голову включить не получается?

[giaber]

У самого, AndVGri, голову включить не получается? В чём проблема? Вчера ночью запостил на нескольких форумах - до часа ночи получал ответы и переписывался. Вот утро, 10 часов -захожу сюда чтоб написать что ответ получен. Ну извините -вот такое уж преступление - отложить с часу ночи на десять часов утра комментарий о том что пост закрыт и ответ получен?

В общем...
Ответ получен, пост закрыт:
Вот вариант от The_Prist

For лист = 1 To 5
For столбец = 1 To 5
        Sheets(лист).Columns(столбец).Sort key1:=Sheets(лист).Columns(столбец).Cells(1,1), Order1:=xlDescending
Next столбец
Next лист