Function calling a sub procedure

[akhendre88]

Hello,

I am writing a function which call the sub procedure to calculate the area. Below is code.

Function GET_AREA(Length As Double, Width As Variant)
    area Length, Width
End Function

Sub area(l As Double, w As Variant)
     MsgBox l * w
End Sub

It is working fine. How can I do it if I want to return a result in any cell instead of MsgBox.

Thank you.

 

[Rick Rothstein]

Hello,

I am writing a function which call the sub procedure to calculate the area. Below is code.

Function GET_AREA(Length As Double, Width As Variant)
    area Length, Width
End Function

Sub area(l As Double, w As Variant)
     MsgBox l * w
End Sub

It is working fine. How can I do it if I want to return a result in any cell instead of MsgBox.

You would not use a Sub to do that, rather, you would have your function do all the work...

Function GET_AREA(Length As Double, Width As Double) As Double
  GET_AREA = Length * Width
End Function

Then you would put this formula in the cell you wanted the result in (here, I am assuming the Length is in cell A1 and the Width is in cell B1)...

=GET_AREA(A1,B1)

 

[akhendre88]

Thank you very much Rick Rothstein