Row heights with copy command

[kckay]

I am copying a block of rows to another area of my worksheet.

The code does not carry the Source_Range as formatted (row heights) and re-format the Dest_Range. This leaves the Dest_Range row heights as the rows are defined in the workbook rather than how the Source_Range is formatted for row_height.

How can I carry the row heights as defined in Source_Range to Dest_Range?

.
.
For n = 2 To Number_Of_Rows
 
Set Dest_Range = Sheets("Sources").Range(Row_start, Row_end)
 
Source_Range.Copy Dest_Range
.
.
.
Next n
[\code]

 

[MPW]

Well in that case. I don't like it
I'll stick with the loop I guess.