I think you'll find the problem is with the assignation of sname ..
To prove it you could add
Msgbox sname
directly after
sname = .Shapes("MonthDropDown").ControlFormat.Value