Change row height if cell is blank
Hi Kemal.
Thanks a lot!
" wrote:
Do you mean something below or ?
Dim rng As Range, i As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Worksheets("yoursheet")
Set rng = .Range("b2", .Range("b" & Rows.Count).End(xlUp))
End With
For Each i In rng
If Len(i.Value) = 0 Then
i.EntireRow.RowHeight = 6
End If
Next i
Application.EnableEvents = True
Application.ScreenUpdating = True
|