thank you gjcase,
that code informs me about the row height, and i dont have the posibility to change the source worksheet . I need to use this information to set the row height in another worksheet
I tried instead this code, which works fine, but only when the source worksheet is OPEN, otherwise returns the #VALUE! error. How can i get rid of this error?
here is the code:

Option Explicit

Public Function RowHeight(ByVal rngHeight As Range) As Single

Dim rngRow As Range

For Each rngRow In rngHeight.Rows
RowHeight = RowHeight + rngRow.RowHeight
Next

End Function

=RowHeight('\\Flory\D\Sesiunea 4 - 141-iunie 2011\Dodan Danut\[text plan afaceri 141 - Dodan Danut.xls]text plan'!$A7))