Using "Atan" in VBA

[Guest]

I am trying to get my sub-routine to perform the "Atan" function but it doesn't seem to recognise it. According to the help file "Atan2" would work but I don't want to give it co-ordinates, I just want to give it an angle. The following code is an extract from my program

initial_back = Application.WorksheetFunction.Atan((EB - EA) / (NB - NA)

But it gives me the runtime error 438 and tells me 'the object doesn't support the method or property'
I think this error has something to do with this code, if not I don't know what it's objecting to

Has anyone come across this problem before

Thank
Dani

 

[Frank Kabel]

Hi
ATAN is not supported as worksheetfunction within VBA (ATAN2 is). the
reason for that is that VBA directly supports Atn. So try the following
line
initial_back = Atn((EB - EA) / (NB -> NA))

 

[Bob Phillips]

Dani,

You can use Evaluate though

initial_back = Evaluate("Atan(" & (EB - EA) / (NB - NA) & ")")

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)