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" <(E-Mail Removed)> wrote in message
news:A13BA0DE-87B6-460C-814E-(E-Mail Removed)...
>
> 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
|