Solved: if odd even numbers

[Digita]

Hi,

[VBA]Sub OddorEven()
If Var Mod 2 = 0 Then
'use formula 1
Else
'use formula 2
End If
End Sub
[/VBA]

Hope this helps.

Regards


kp