ясное содержимое столбца, если заголовок пуст vba

Question

Я пытаюсь очистить все столбцы, которые имеют пустой заголовок на рабочем листе.

Set names = Sheets("Sheet2").Range(Sheets("Sheet2").Cells(1, 2), Sheets("Sheet2").Cells(1, 100)) 

For Each Cell In names 
    If IsEmpty(Cell.Value) Then 
    Cell.Columns.ClearContents 
    End If 
Next Cell 

И я ничего не вижу, но код работает. Здесь есть логическая ошибка? может быть, здесь:

Cell.Columns.ClearContents 

Answer 1

попробовать это:

For Each cell In Names 
    If IsEmpty(cell.Value) Then 
     Dim col As Range 
     Set col = cell.EntireColumn 
     col.ClearContents 
    End If 
Next cell