Корректировка макроса на удаление любого столбца по условию в указанной ячейке VBA

[Alexsandrr]

Доброго дня! Не нашел на форуме похожего ответа на мой вопрос, поэтому прошу Вас гуру подсобите. Вот макрос на удаление столбца "C" по заданному условию "пусто" в ячейки "c2". Необходимо изменить макрос таким образом, чтобы при сохранении условия "пусто" в ячейке "c2" можно было удалять любой другой столбец.

Sub kmd()
For Each c In Range("c2:c2")
If c = пусто Then c.EntireColumn.Delete
Next
End Sub

[IgorGO]

Sub kmd()
  If IsEmpty([c2]) Then Columns(1 + Int(Rnd * Columns.Count)).Delete
End Sub

[Alexsandrr]

Куда в коде указать необходимый столбец для удаления?

[IgorGO]

а удалять нужно не

любой другой столбец

, а выбранный пользователем?
тогда так:

Sub kmd()
  Dim rg As Range
  If IsEmpty([c2]) Then Set rg = Application.InputBox("Укажите ячейку или столбец", "Удалить столбец", Type:=8)
  If Not rg Is Nothing Then rg.Cells(1).EntireColumn.Delete
End Sub

предыдущий макрос строго по техзаданию удалял любой другой столбец (столбец С тоже попадал в категорию "любой другой столбец" и мог быть удален)

[Alexsandrr]

Большое спасибо за помощь, но нужно уточнение.
В предложенном Вами макросе необходимо в открывшемся окне указывать столбец для удаления.
А нужен макрос такого порядка: при условии, что в ячейке с5 пусто - сразу удаляем столбец (k:k)

[Alexsandrr]

Напряг мозг посильнее и вот макрос
Sub kmd()
For Each c In Range("c2:c2")
If c = пусто Then
Columns ("k:k").Delete
End If
Next
End Sub

Вопрос закрыт!

[Aleksandr H.]

Чем аргументовано использование конструкции

For Each c In Range("c2:c2")

?

[IgorGO]

запись полностью соответствует синтаксису языка, на нее не ругается интерпретатор и более того - ОНА РАБОТАЕТ!!! - чем не аргумент?