Copy Row Heights or Column Width

Kattie 

Here is a VBA solution, just hope it's not Office for web.

Enter the code below into a standard module and assign it to a button.

Sub SuperCopy ()
    Dim rngSource As Range, rngTarget As Range
    Dim iCounter As Integer
    Set rngSource = Worksheets ("Sheet1"). Range ("A1: C5")
    Set rngTarget = Worksheets ("Sheet2"). Range ("A1: C5")
    rngSource.Copy rngTarget
    For iCounter = 1 To rngSource.Rows.Count
       rngTarget.Rows (iCounter) .RowHeight = _
          rngSource.Rows (iCounter) .RowHeight
    Next iCounter
    For iCounter = 1 To rngSource.Columns.Count
       rngTarget.Columns (iCounter) .ColumnWidth = _
          rngSource.Columns (iCounter) .ColumnWidth
    Next iCounter
End Sub

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.