Update Macro.bas

Trying to fix a bug.
*warning: broken code*