acos function

[Philosophaie]

I am having trouble with my acos function:

d=Application.WorksheetFunction.acos(c)

where c is in radians and there is no error in it.

The error statement says:

"Unable to get the Acos property of the WorksheetFunction class"

I know there are other ways of getting the Acos function to work in VBA so could someone show me the way?

 

[MickG]

Hi, This is one way:-

Dim oDeg, orad
oDeg = 30
orad = oDeg * Application.Pi / 180
MsgBox Cos(orad) 'cos of 30 dgrees= 0.866025404
MsgBox Application.Acos(0.866025404) * (180 / Application.Pi()) '= 30 Degrees

Regards Mck

 

[Oaktree]

Is the value of c between -1 and 1? If not, your ACOS function will return an error and you'll get the message you're seeing...