Clickable annual wheel

Thanks a stack Lewis. I'll start implementing and understanding your approach and will save a version including years when done. I should be able to include this part as it'll be hardly any different from your solution for the months.
/Daniel

Hi again,

I hate to admit it, but although I consider myself having at least some basic VBA knowledge this seems to exceed my current horizon (I'll have to work on that).

I tried to incorporate your macro with the revised annual wheel (months and years) in the file, where I intend to use it, but failed both to activate your code so that the month would be updated (now in B2) and also to include the year as it's not just some simple copying of the monthly code. Also when I try to initially run the RenameActiveShape it only returns with a Runtime 438 'Object doesn't support this property or method'.

So I have included now the whole thing, where the wheel is supposed to work in, which is a recurring task list plus a Gantt chart visualisation. For the latter I have another problem, but that's already posted in the chart section of this forum.

Sorry for the troubles - really appreciate that it's generally working fine

/Daniel

Good day,
I've solved the issue by using a simple macro per shape. Works like a charm as well.

Option Explicit

Sub Jan_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "January"
End Sub
Sub Feb_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "February"
End Sub
Sub Mar_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "March"
End Sub
Sub Apr_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "April"
End Sub
Sub May_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "May"
End Sub
Sub Jun_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "June"
End Sub
Sub Jul_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "July"
End Sub
Sub Aug_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "August"
End Sub
Sub Sep_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "September"
End Sub
Sub Oct_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "October"
End Sub
Sub Nov_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "November"
End Sub
Sub Dec_Click()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "December"
End Sub
Sub yr2014_Click()
    Range("B3").Select
    ActiveCell.FormulaR1C1 = 2014
End Sub
Sub yr2015_Click()
    Range("B3").Select
    ActiveCell.FormulaR1C1 = 2015
End Sub
Sub yr2016_Click()
    Range("B3").Select
    ActiveCell.FormulaR1C1 = 2016
End Sub
Sub yr2017_Click()
    Range("B3").Select
    ActiveCell.FormulaR1C1 = 2017
End Sub

Admit it could potentially be more fancy, but does what it's supposed to do.

Cheers,
Daniel