Row height based on cell value

Hi

How's this

Sub aaa()
  For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
    If InStr(1, Cells(i, 2), "#Break") > 0 Then
      Cells(i, 1).EntireRow.RowHeight = 9.75
    End If
  Next i
End Sub

rylo