Well... some advices:
Start recording the macros exactly how you want and what you want them to do
Check them and debug the code one by one (pressing F8)
Try to replace the "Activate", "Select", "Selection" stuff with the object itself
Another advice: do the macros on a Module... not inside Worksheet Page (instead you are doing a worksheet event), and try not to use ActiveX objects in Worksheet... use the other kind of objects
Anyway, this time I'll keep your button and the event into the Worksheet Page
Try this:
Bookmarks