Input Box with Drop down list

[Tom Jones]

Hi, But how to execute it? It's a Private Sub.

Double click in cell A1