Code following can be used to "pastespecial" row heights for blocks of cells that have been copied and have lost row height settings.
Prior to executing, the source block is selected, then PageSetup'd as the PrintArea.
The pasting begins at the activecell row and continues for the number of rows in the PrintArea.
The code is handy when assigned to a key combination.
cheers
'
'
Sub PasteSpecial_Heights()
'
' ******* copies row heights of PrintArea rows starting at activecell *******
'
Dim J As Integer, Block As Range
'
Set Block = Range(ActiveSheet.PageSetup.PrintArea)
'
For J = 1 To Block.Rows.Count
Selection.Offset(J - 1, 0).RowHeight = Block.Rows(J).RowHeight
Next J
'
End Sub
'
'
Prior to executing, the source block is selected, then PageSetup'd as the PrintArea.
The pasting begins at the activecell row and continues for the number of rows in the PrintArea.
The code is handy when assigned to a key combination.
cheers
'
'
Sub PasteSpecial_Heights()
'
' ******* copies row heights of PrintArea rows starting at activecell *******
'
Dim J As Integer, Block As Range
'
Set Block = Range(ActiveSheet.PageSetup.PrintArea)
'
For J = 1 To Block.Rows.Count
Selection.Offset(J - 1, 0).RowHeight = Block.Rows(J).RowHeight
Next J
'
End Sub
'
'
