ROWHEIGHT

Returns the row height of the active cell.
For instructions on how to add a function to a workbook refer to the page under Inserting Functions

'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