vba - ヘッダーが空白の場合、列の内容をクリアします 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