With the macros below you can copy row heights and column widths from one range to another.
Private Sub CopyRowHeigths(TargetRange As Range, SourceRange As Range) Dim r As Long With SourceRange For r = 1 To .Rows.Count TargetRange.Rows(r).RowHeight = .Rows(r).RowHeight Next r End With End Sub Private Sub CopyColumnWidths(TargetRange As Range, SourceRange As Range) Dim c As Long With SourceRange For c = 1 To .Columns.Count TargetRange.Columns(c).ColumnWidth = .Columns(c).ColumnWidth Next c End With End Sub
CopyColumnWidths(Range("E1:H1"), Range("A1:D1")) CopyColumnWidths(Worksheets("Sheet2").Range("A1:D1"), _ Worksheets("Sheet1").Range("A1:D1"))
The applications/code on this site are distributed as is and without warranties or liability. In no event shall the owner of the copyrights, or the authors of the applications/code be liable for any loss of profit, any problems or any damage resulting from the use or evaluation of the applications/code.