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