VBA Function with formula

[Atholl]

Hi all,

This VBA function works fine, except that it displays my "=E13..." formula as text, and not a formula. How can I get this to work as a formula?

Function BHCP(a)

If a = "OK" Then

BHCP = "=E13*(G39+G38)*0.00981"

End If

End Function


Thanks in advance,

Atholl

 

[Andrew Poulsom]

Try:

BHCP = Evaluate("=E13*(G39+G38)*0.00981")

 

[Atholl]

A timely and accurate response as ever!

Thanks,

Atholl

 

[Atholl]

Here's a related question..

I want to set a variable, b, as a cell (it could be one of a number of cells). Then I want b in my formula. How can I do this?
The following doesn't work, but I'm not surprised!


Function BHCP(a)

If a = "OK" Then

b = Sheets("Input").Cells(49, 17)

BHCP = Evaluate("=b*(G39+G38)*0.00981")

End If
End Function


Atholl

 

[Andrew Poulsom]

Try:

BHCP = Evaluate("=" & b & "*(G39+G38)*0.00981")

 

[Atholl]

Thanks again! :D

Atholl