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)

"Frank Kabel" wrote in message
...
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))

--
Regards
Frank Kabel
Frankfurt, Germany

Dani wrote:
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.

Thanks
Dani