I am trying to program a custom function to make some simple math simpler.
Unfortunately this is my first swing at a custom function or VBA for that
matter. I would like to be able to pass 6 variables to a function and have it
do the following math:

CrossP(A1, A2, A3, B1, B2, B3)
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5

Any thoughts?

function CrossP(A1 as double, A2 as double, A3 as double, B1 as double, B2 as
double, B3 as double) as double
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5
End Function


"Ryan" wrote:

I am trying to program a custom function to make some simple math simpler.
Unfortunately this is my first swing at a custom function or VBA for that
matter. I would like to be able to pass 6 variables to a function and have it
do the following math:

CrossP(A1, A2, A3, B1, B2, B3)
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5

Any thoughts?

I am still getting a #name error, this is exactly what I have in the VBA
editor;

Function CrossP(A1 As Double, A2 As Double, A3 As Double, B1 As Double, B2
As Double, B3 As Double) As Double

CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 -
A2 - B1) ^ 2) ^ 0.5

End Function

"Patrick Molloy" wrote:

function CrossP(A1 as double, A2 as double, A3 as double, B1 as double, B2 as
double, B3 as double) as double
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5
End Function


"Ryan" wrote:

I am trying to program a custom function to make some simple math simpler.
Unfortunately this is my first swing at a custom function or VBA for that
matter. I would like to be able to pass 6 variables to a function and have it
do the following math:

CrossP(A1, A2, A3, B1, B2, B3)
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 - A2
- B1) ^ 2) ^ 0.5

Any thoughts?

apologies ... I've been away. However, your code works fine for me.....



Option Explicit

Sub test()

Debug.Print CrossP(1, 2, 3, 4, 5, 6) ' 6.78232998312527

End Sub

Function CrossP(A1 As Double, A2 As Double, A3 As Double, B1 As Double, B2
As Double, B3 As Double) As Double

CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 -
A2 - B1) ^ 2) ^ 0.5

End Function


"Ryan" wrote in message
...
I am still getting a #name error, this is exactly what I have in the VBA
editor;

Function CrossP(A1 As Double, A2 As Double, A3 As Double, B1 As Double, B2
As Double, B3 As Double) As Double

CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 *
B2 -
A2 - B1) ^ 2) ^ 0.5

End Function

"Patrick Molloy" wrote:

function CrossP(A1 as double, A2 as double, A3 as double, B1 as double,
B2 as
double, B3 as double) as double
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 * B2 -
A2
- B1) ^ 2) ^ 0.5
End Function


"Ryan" wrote:

I am trying to program a custom function to make some simple math
simpler.
Unfortunately this is my first swing at a custom function or VBA for
that
matter. I would like to be able to pass 6 variables to a function and
have it
do the following math:

CrossP(A1, A2, A3, B1, B2, B3)
CrossP = ((A2 * B3 - A3 * B2) ^ 2 + (A1 * B3 - A3 * B1) ^ 2 + (A1 *
B2 - A2
- B1) ^ 2) ^ 0.5

Any thoughts?