Maybe someting in here will help.

Sub CopyRowHeights()
Rows("1:20").Select
Selection.Copy
Windows("Book2").Activate
Rows("1:20").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Vaya con Dios,
Chuck, CABGx3




"MikeF" wrote in message
...

Have a subroutine that copies a sheet from one workbook to the other, then
copies values, formats, and column widths.

But need it also to copy the row heights/hidden rows.

Any assistance will be sincerely appreciated.
Thanx.
- Mike