Function for RowHt. How to create

[Kieranz]

Hi All,
I would like to create a function to get the row height. Eg in cell B5
it should put the value of row B height. similar to =Cell("width") so
that if i type =RowHt() it should put the row height value in the
activecell.
Many Thks
KZ

 

[Vergel Adriano]

Public Function RowHt() As Double
RowHt = ActiveCell.EntireRow.Height
End Function

note that adjusting the row height will not cause the cell to recalculate..
just like Cell("width") when getting the column width.

 

[JE McGimpsey]

One way:

Public Function RowHeight(Optional ByRef rng As Range) As Variant
Application.Volatile
On Error Resume Next
If rng Is Nothing Then Set rng = Application.Caller
On Error GoTo 0
If Not rng Is Nothing Then
RowHeight = rng.EntireRow.Height
Else
RowHeight = CVErr(xlErrRef)
End If
End Function

Called as

=RowHeight()

it returns the height of the active row, or you can reference another
cell/row:

=RowHeight(E7)

returns the height of Row 7.

 

[Kieranz]

Public Function RowHt() As Double
RowHt = ActiveCell.EntireRow.Height
End Function

note that adjusting the row height will not cause the cell to recalculate..
just like Cell("width") when getting the column width.

Many thks
Rgds
KZ

 

[Kieranz]

One way:

Public Function RowHeight(Optional ByRef rng As Range) As Variant
Application.Volatile
On Error Resume Next
If rng Is Nothing Then Set rng = Application.Caller
On Error GoTo 0
If Not rng Is Nothing Then
RowHeight = rng.EntireRow.Height
Else
RowHeight = CVErr(xlErrRef)
End If
End Function

Called as

=RowHeight()

it returns the height of the active row, or you can reference another
cell/row:

=RowHeight(E7)

returns the height of Row 7.

Many thks, Mr McGimpsey. Exactly what i wanted. Qn What does
application.caller do? and CVErr(xlErrRef)
Rgds
KZ

 

[JE McGimpsey]

Did you look at "Caller property" and "CVErr Method" in XL/VBA Help?