cycle macro

[overbet]

Is it possible in vba to have a macro button that cycles through preset data? Example would be in cell A1 the data contains the text "A". When pressing the button once the data changes from "A" to "B" when pressed again the text changes from "B" to "C" when pressed again the text changes "C" to "D" and when pressed again the data changes from "D" to "A" starting the cycle over again. I have searched to the best of my ability, but I am unable to see if this is even possible. Thanks for your comments.

 

[Fluff]

What are the preset values?
Will they really be A,B,C,D?

 

[overbet]

What are the preset values?
Will they really be A,B,C,D?

Yes they will.

 

[Fluff]

Ok, how about

Sub overbet()
   With Range("a1")
      .Value = IIf(Asc(.Value) = 68, "A", Chr(Asc(.Value) + 1))
   End With
End Sub

 

[overbet]

Cool beans. I didnt even think it was possible. Thank you much sir/maam.

 

[overbet]

Ok, how about

Sub overbet()
   With Range("a1")
      .Value = IIf(Asc(.Value) = 68, "A", Chr(Asc(.Value) + 1))
   End With
End Sub

Doh can i trouble you once more? Is there anyway to make it on the selection of rows in column A rather than just cell A1. Im sorry I should have posted that in my original question, but I didnt consider it. The data is always in column A but over different rows sometimes.

 

[Fluff]

Do you mean a single selected cell or multiple cells?

 

[overbet]

Do you mean a single selected cell or multiple cells?

Multiple rows and they are different on different days. Sometimes its a half dozen sometimes more or less and in different row numbers.

 

[Fluff]

Ok, how about

Sub overbet()
   Dim Cl As Range
   For Each Cl In Intersect(Selection, Range("A:A"))
      Cl.Value = IIf(Asc(Cl.Value) = 68, "A", Chr(Asc(Cl.Value) + 1))
   Next Cl
End Sub

 

[overbet]

That cycles but it goes through the entire alphabet then gets into symbols. Is there anyway to make it stop cycling at D value and start over at A value?