What you can do is put in the following VBA statement in a macro and assign any shortcut key ( CTRL SHIFT key ) to it :
ActiveCell.Value = Val(Activecell.Value)
For example if you assign the key R to it , then placing your cursor in the cell , whose contents you wish to convert to a number , and pressing CTRL SHIFT R will do the job.