ROWHEIGHT

ROWHEIGHT(iRowNo)
Returns the row height of the active cell.

iRowNo

(Optional) The row number you want the height of.

Public Function ROWHEIGHT( _ 
Optional ByVal iRowNo As Integer = -1) _ 
         As Single 

   If iRowNo = -1 Then 
      ROWHEIGHT = ActiveCell.RowHeight 
   Else 
      ROWHEIGHT = ActiveSheet.Rows(iRowNo & ":" & iRowNo).RowHeight 
   End If 
End Function

For instructions on how to add this function to a workbook refer to the page under Inserting Functions