Even ODD Row Number Query

[gsaini]

Hi All, I am able to find out the correct function to work with Even and Odd rows.My small requirement is as below.

z = ActiveCell.row
If z = evern number then
MsgBox("Even row selected")
else
MsgBox("Odd row Selected")

I tried using MOD but Excel doen't like it.

Any Advice? Please

 

[baitmaster]

if z/2 = int(z/2) then ' there is no decimal value, so number is even

 

[Jonmo1]

The syntax for MOD is slightly different in VBA then it is in a cell formula..

In a formula it would be

=IF(MOD(z,2)=0,"It's Even",It's Odd")


In VBA it's written like

If z Mod 2 = 0 Then
    Msgbox "It's Even"
Else
    Msgbox "It's Odd"
End If