Defining Hight of Every Other Row

[Amr Tabbarah]

I often need to change the row height of every other row and searching
for a way to do that other than selecting each every other row before
using Format/Row/Height.

 

[Bernie Deitrick]

Amr,

If you copy two rows, one changed and one unchanged, then you can
select a large block of an even number of rows and use pastespecial
format to change the row heights in the alternating pattern.

HTH,
Bernie
MS Excel MVP

 

[Amr Tabbarah]

Bernie,

Thanks. I have tried it and it works well for new/empty sheets.
However, for existing sheets, copying the format of the 2 rows changes
all the previously set format for the rows the height of which I want
to change.

Is there a way to overcome this?


Amr

 

[Jerry W. Lewis]

How about running a macro?

Sub OddRowHt()
' change height of odd-numbered rows in selection
For Each rw In Selection.Rows
If rw.Row Mod 2 = 1 Then ' change 1 to 0 for even #'d rows
rw.RowHeight = 25.5 ' change to desired height
End If
Next
End Sub

Jerry

 

[Amr Tabbarah]

Jerry,

Thanks, the macro is working just fine.


Amr