Проверка значений строки

[iami]

Доброго времени суток!

Сейчас провожу проверку строки таким образом:

Set rr = Range("1:1")
For Each c In rr
    If Not TypeName(c.Value) = "Empty" Then
        c.EntireColumn.Hidden = True
    End If
Next c

При этом заметно ожидание завершения обработки. Как указать до какого столбца нужно проводить обработку? Кроме идеи счетчика больше ничего в голову не приходит.

[IgorGO]

Set rr = Range(cells(1,1), cells(1,10)) ' для 10 первых колонок
For Each c In rr
  c.EntireColumn.Hidden = Not (TypeName(c.Value) = "Empty")
Next c

[iami]

Спасибо большое!