Sub DropDown2_Change()
    MsgBox ActiveSheet.Shapes(Application.Caller).ControlFormat.Value
End Sub
Please edit your post to add code tags.