My suspicion is the old "cut and paste a sub" issue; if you copied and pasted the whole thing, including the "Private Sub Workbook_Open()" line, then Excel can sometimes fail to link that with the actual event.

Delete the whole thing, pick the event from the dropdown so it creates a new event and try it again. I'll be surprised if it doesn't work.