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