Hi Srikanth

Sub test()
Dim N As Long
Dim posX As Long
For N = 1 To 6
posX = 150 - (N Mod 2) * 340
MsgBox N & Chr(10) & posX, , "demo"
Next
End Sub


HTH. Best wishes Harald

"Srikanth Ganesan" skrev i melding
...

Hello,

How do I do the following in a macro

IF MOD(n,2) = 1 Then posX = -190 Else posX = 150


where n is an integer, posX is a Long.

Srikanth

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!