Copy and Paste protected row height

[dyscjocki]

I am attempting to copy and paste a protected sheet so I can make my own modifications. I am able to copy and paste the column width but how do I do the same for row height?

 

[Yongle]

You cannot do it manually very easily - there is no "row heights" equivalent of paste special column widths

Try this bit of VBA
- assumes everything is happening within the active workbook
- amend the sheet names and range
- minimising the size of the range reduces the time taken

VBA needs tailoring if more than one workbook is involved or if pasting to a different range

Place in standard module

Option Explicit

Sub CopyColWidthAndRowHgt()
    Dim sourceRng As Range, targetRng As Range, r As Long, c As Long
    Set sourceRng = Sheets("[COLOR=#ff0000]FromHere[/COLOR]").Range("[COLOR=#ff0000]A1:Z20[/COLOR]")
    Set targetRng = Sheets("[COLOR=#ff0000]ToHere[/COLOR]").Cells
    
    With sourceRng
        Application.ScreenUpdating = False
        For r = 1 To .Rows.Count
            targetRng.Rows(r).RowHeight = .Rows(r).RowHeight
        Next r
        For c = 1 To .Columns.Count
            targetRng.Columns(c).ColumnWidth = .Columns(c).ColumnWidth
        Next c
        Application.ScreenUpdating = True
    End With
End Sub