Macro to square a number