Hi daredan,
I love your wheel. Try the attached file. However, I didn't implement the year part, because I didn't see any Year segments.
This is how I approached your problem:
a. Macro 'RenameAciveShape()' was used to rename the segments to 'Jan' thru 'Dec'.
b. Macro 'AssignOnActionTextToWheelSegments()' was used to assign Macro 'WheelEventHandler()' as the Event Handler for all Shapes on the Sheet.
c. Macro 'WheelEventHandler()' processes CLICKS on the Wheel and puts the month in cell 'H1'.
Code follows (ordinary code module such as 'Module1'):
Lewis
Bookmarks