Adding odd numbers in VBA

[loloobaloo]

Hi friends I am working on a code that adding odd number from 1 to the number user determines. I did the adding number but I don't know how I should do it for odd number. I hope anybody can help me.
In attachment you can find what I've done.

[georgiboy]

Maybe just add a step to your loop:

Sub OddNumber() Dim num As Integer
Dim Sum As Long
Dim i As Long

num = InputBox("Enter your number")
Range("A1").Value = num


For i = 1 To num Step 2
Sum = Sum + i
Next


Range("A2").Value = Sum
End Sub

[loloobaloo]

Thanks it works.