I'm not a VBA man myself but the code works.
You don't have to multiply with 1, it will revert to a number automatically