Create a Drop-Down List of Delmited Text within a selected Cell

I am looking for a macro to convert delimited text within a select cell to a drop-down list with all values that were that cell. The delimiter is a comma.

For example, if the selected cell has the following values: Apple, Bear, Tree...then when the macro is executed those three values would appear in a drop-down list. Thanks.