VBA- Function not returning a value to Sub-procedure

Asked Sep 16 '16 at 08:36

Active Sep 16 '16 at 08:36

Viewed 159 times

I have small VBA program to calculate area of a rectangle . Using the values in Cell B2 and B3 , i called a function rectangle from sub procedure . I am expecting a area to be calculated in the function and to be returned to the sub procedure . In my case its not happening . Why is that ?

Sub Button1_Click()
    Dim result As Integer
    a = Cells(2, "B").Value
    b = Range("B3").Value
    result = rectangle(a, b)
    MsgBox ("area of rectangle is " & result)
End Sub

Function rectangle(ByVal a As Integer, ByVal b As Integer) As Integer
    Dim area As Integer
    area = a * b
End Function

edited Jul 09 '18 at 19:34

Community

asked Sep 16 '16 at 08:36

ICEMAN

1

You calculate `area` but do not return it. – GSerg Sep 16 '16 at 08:37
you don't need `area` just use `rectangle = a * b` , so the calling procedure will get the value back – Shai Rado Sep 16 '16 at 08:43
@gserg i did try to add return area in the Function , it throws me an error – ICEMAN Sep 16 '16 at 15:11
@Shadi yes it worked fine. But what is the logic behind this ? does it mean everytime i call a function , the returning variable name should also be same as function name?? – ICEMAN Sep 16 '16 at 15:13
Please click the link at the top of your question @ICEMAN. – GSerg Sep 16 '16 at 15:24

VBA- Function not returning a value to Sub-procedure

0 Answers0