Custom functions not working in Excel VBA

Question

For some reason custom functions don't seem to be running in Excel. I created the simple function below but it always returns zero as a value whether it is used as a worksheet function or called from a procedure. Anyone know what I am doing wrong or if there is a setting somewhere I am missing?

  Public Function Testthisout(number As Double) As Double
    result = number * number
  End Function

  Public Sub TESTFUNCTION()
    Dim number As Double
    Dim result As Double

    Application.Volatile (True)

    number = 4
    result = Testthisout(number)
    MsgBox result
  End Sub

Andrey Gordeev · Accepted Answer · 2013-02-13 06:10:28Z

3

Change you function to:

Public Function Testthisout(number As Double) As Double
  result = number * number
  Testthisout = result
End Function

answered Feb 13, 2013 at 6:10

Andrey Gordeev

32.7k16 gold badges143 silver badges169 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Marc L Over a year ago

nope, still get 0 returned. Dunno if I have to reinstall excel maybe

Andrey Gordeev Over a year ago

Try Testthisout = number * number. Your problem is that you don't assign result to the function's returning value.

Marc L Over a year ago

Many thanks- obvious in hindsight, but highly frustating when you miss it!

Collectives™ on Stack Overflow

Custom functions not working in Excel VBA

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related