Daily WTF code (2)

Din ciclul sa programam in Excel... ce daca n-am fost la scoala...

If 1 = 2 Then    
    .Rows(29).RowHeight = 21
     .Rows(32).RowHeight = 5
Else
     .Rows(34).RowHeight = 5
End If

Si perla e de fapt chiar mai mare si mai stralucitoare...

With objBK.Worksheets(iSheet)
   .Columns(1).ColumnWidth = 30
   ...   .Rows(7).RowHeight = 5
   If 1 = 2 Then
      .Rows(29).RowHeight = 21
      ...
   Else
      .Rows(34).RowHeight = 5
   End If
   .Rows(38).RowHeight = 5
   ...
   .Rows(55).RowHeight = 5
   If 1 = 2 Then
     .Rows(56).RowHeight = 5
     ...
     .Rows(66).RowHeight = 5
   End If
End With