Perhaps something like this:

Sub AddOne()
Dim xColumn As String
Dim wColumn As String
'Define cells you want to use
xColumn = "X1"
wColumn = "W1"

If Range(xColumn).Value = 11 Then
Range(xColumn).Value = 0
Range(wColumn).Value = Range(wColumn).Value + 1
Else
Range(xColumn).Value = Range(xColumn).Value + 1
End If

End Sub
--
Best Regards,

Luke M
*Remember to click "yes" if this post helped you!*


"C" wrote:

I have a spreadsheet that I need to increment Column X by one when the macro
is executed. When Column x = 12 then it goes back to 0 and column w is
incremented by one.

Note: Only column x resets to 0. column W increments to infinity.

Example:

March 2009
Column W Column X
10 11

April 2009 After Calculation
Column W Column X
11 0

May 2009 After Calculation
Column W Column X
11 1

Can someone help?

Thanks in advance.
CB