Выделить колонку по названию

[Romuald]

Всем добрый день!!!
С Великим Вас праздником ПОБЕДЫ!
Подскажите, пожалуйста, как макросом выделить колонку по названию , которое в строке А ?
т.е.
В строке А стоят названия колонок (A1-кузов, B1-рама, С1-двигатель, H1-колесо. Названия и колонки меняются . Сегодня "колесо" может быть в В1, завтра может быть в Z1, а может и не быть совсем. Мне надо макросом выделить колонку по названию, например "колесо".
Заранее благодарю
Рома

[EducatedFool]

А где пример файла?

[Romuald]

Извиняюсь, Пример

[EducatedFool]

Sub test1()    ' выделяем столбец целиком
    ColumnName = "Koleso": On Error Resume Next: Err.Clear
    Range("1:1").Find(ColumnName).EntireColumn.Select
    If Err Then MsgBox "Столбец """ & ColumnName & """ не найден!", vbCritical
End Sub

Sub test2()    ' выделяем только данные в столбце
    ColumnName = "Koleso": On Error Resume Next: Err.Clear
    With Range("1:1").Find(ColumnName).EntireColumn
        Range(.Cells(2), .Cells(.Cells.Count).End(xlUp)).Select
    End With
    If Err Then MsgBox "Столбец """ & ColumnName & """ не найден!", vbCritical
End Sub

[Romuald]

С П А С И Б О !!!!!!!
Еще раз с ПРАЗДНИКОМ ПОБЕДЫ !!!!!!!!