В некоторых случаях требуется получить содержимое заданной ячейки диапазона. Для этого используется инструкция For Each:

Dim currCell As Range
     For Each currCell in Range("Data")
     If currCell.Value >100000 Then
          With currCell.Font
                 .Bold = True
                 .Underline = xlUnderlineStyleDouble
          End With
     End If
Next currCell

Для комментария : kadan@grsu.grodno.by