Need to find and print row height in col A

[HowdeeDoodee]

I am working on a document conversion project. In doing the project I am finding various rows have various heights. I need a formula or macro to print the current height of each row in col A. Thank you in advance for your time and your valuable replies.

 

[Tom Urtis]

By "each row" you surely do not mean all rows, such as 65536 in <=XP or >1M for 2007, you probably mean rows in the used range.

This will list rowheights in column B from row 1 to the last used row.

Sub RowzHeitz()
Application.ScreenUpdating = False
Dim x&, LR&
LR = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For x = 1 To LR
Cells(x, 2).Value = Rows(x).RowHeight
Next
Application.ScreenUpdating = True
End Sub

 

[HowdeeDoodee]

The macro is working great. Thank you very much for the help.