Макросы и функции VBA

Макрос "Скрыть столбцы"

Скрывает определенные столбцы листа.

Sub Скрыть_Столбцы()
    Columns("A:R").Select
    Selection.EntireColumn.Hidden = False 'отобразить столбцы A:R
    Range("E:E,G:G,I:I,K:K,M:M,O:O").Select 'скрыть столбцы
    Selection.EntireColumn.Hidden = True
End Sub