I have a document with thousands of rows. 1-79 had rows with minimal height that essentially hid them from view. I was able to fix those rows by manually changing the height. However, now from row 79 -1001 I am missing rows and do not want to spend the time manually adjusting their heights. I  have tried ctrl +A and format row height. What other ways is there to fix this problem?

Thanks

Execute the macro below.

Andreas.

Sub Test()
  ActiveSheet.UsedRange.EntireRow.RowHeight = 15
End Sub

or that

Sub Test2()
  ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub

• Edited by Andreas Killer 13 hours 36 minutes ago

Execute the macro below.

Andreas.

Sub Test()
  ActiveSheet.UsedRange.EntireRow.RowHeight = 15
End Sub

or that

Sub Test2()
  ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub

• Edited by Andreas Killer Thursday, August 27, 2015 5:53 PM

Execute the macro below.

Andreas.

Sub Test()
  ActiveSheet.UsedRange.EntireRow.RowHeight = 15
End Sub

or that

Sub Test2()
  ActiveSheet.UsedRange.EntireRow.AutoFit
End Sub

• Edited by Andreas Killer Thursday, August 27, 2015 5:53 PM

Have you considered doing a Ctrl+A, Ctrl+C and then on a new sheet in cell A1, Ctrl+V?