Macro to Quickly Convert #'s stored as text

Ok, so I just discovered the multiple by 1 trick to quickly convert numbers stored as text to numbers. I would like to take it one step further and have a Macro that when i highlight the cells I want to convert in an Active Workbook and run the Macro it automatically Copies a 1 and does a Paste Values and Operation Multiple on the area I've selected.

Is this possible? If so, please provide Code.

Appreciate all of you!