Цикл по диапазону и скрытие столбцов VBA

Question

Я очень болен сегодня и очень новый в VBA - не рецепт успеха.Я пытаюсь перебрать каждую ячейку в (горизонтальном) диапазоне, и если текст внутри ячейки ЛОЖЬ, то я хочу скрыть этот столбец.Это то, что у меня так далеко:

Dim rRange As Range
Dim rCell As Range
rRange = Worksheets("Data").Range("W7:AH7").Cells

For Each rCell In rRange
        If rCell.Value = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True
Next rCell
End Sub

Я получаю сообщение об ошибке «переменная объекта или переменная блока не установлена».Пожалуйста, кто-нибудь может указать, где я иду не так?Спасибо.

Answer 1

используйте это

set rRange = Worksheets("Data").Range("W7:AH7").Cells 

и

If Ucase(rCell.Value) = "FALSE" Then rCell.Columns.EntireColumn.Hidden = True 

Переменные объектов должны быть установлены для создания экземпляра, и "FALSE" <> "false", используйте Ucase, чтобы игнорировать различия.

[] в