Thanks for your mail Dana!
This is what I did, and now it works:
I checked Tools/Add-Ins/Analysis Toolpak - VBA in Excel.
Then I checked Tools/References/atpvbaen.xls in Visual Basic Editor.
(for you with similar problem: if you don't see atpvbaen.xls in Visual Basis
Editor Tools/References,
click Browse and find file atpvbaen.xla - probably in \Microsoft Office\
Office10\Library, or something like that)

Regards,
Tommi

"Dana DeLouis" wrote in message
...
I'm not sure. If I don't have the reference set, then I get a
"Compile error: Sub or Function not defined"

I'm just guessing. Unselect this in the vba library. Go to the
worksheet,
and select <Tools <Add-Ins and make sure the Analysis ToolPak is
selected.
Then, try the library reference again.

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Tommi" wrote in message
...
I tried this. I set the Tools/Referencese to atpvbaen.xls and then used
IsEven. but I get this "Run-Time Error '1004' The macro " cannot be
found"
What is wrong?

"Dana DeLouis" wrote in message
...
Just another option. If you have a vba library reference set to
atpvbaen.xls, then you can use IsOdd / IsEven directly.

Sub Demo()
Debug.Print IsOdd(12345678901234)
Debug.Print IsEven(12345678901234)

Debug.Print IsOdd(12345678901235)
Debug.Print IsEven(12345678901235)
End Sub

returns...
False
True
True
False
--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"Tommi" wrote in message
...
How to check in VBA code if number is even (or odd)?