Подскажите, как можно выделить все ячейки на листе, где число строк больше 4 (стоит перенос по словам). Размер ограничиваю 30х30.  
 
Sub макрос()  
  k = 0  
  For j = 1 To 30  
    For i = 1 To 30  
       If (число строк больше 4) Then (выделяем ячейку)  
       k = k+1    
       End If  
     Next i  
   Next j  
MsgBox ("Найдено ячеек " k)  
End Sub