Clickable annual wheel

Hi Daniel,

I want to apologize for two things:
a. The problems you were having.
b. I missed your second post from yesterday at 9:57AM

I like your solution much better than mine. I was trying to avoid extra code, but cause unintended consequences instead.

For the future you can simplify things a little. You can replace

Sub Jan_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "January"
End Sub

with

Sub Jan_Click()
    Range("B2") = "January"
End Sub

I wouldn't change anything now, because what you have works.

Lewis