Thanks again Gary for replying.

I ran your code and, unfortunately, it does the same thing. After
running it, the mouse wheel was not recognized and I could not close
the workbook. Adding another sheet (which makes it active), then
returning to the Instructions worksheet through the UI fixed it.

I used a new workbook devoid of additional code. I commented out my
version of DeleteReportSheets and included MsgBox responses within
your code to make sure it was fully executing. It was.

I mentioned that I had already tried activating the Instructions
worksheet before doing the deletions, and it didn't help. Also, as
mentioned, if I don't create my own popup, just add my controls to
the Cells popup, this doesn't happen. Just the annoying "Paste
Options:" control gets added and I can't prevent it (gets added after
the right click event is processed).

So I guess all we can do is see if someone else running 8.1 / xl2013
confirms or denies the problem.

Thanks again.

Greg

Sorry I couldn't help. Looks like I'll have to get myself 8.1/MSO2013
so I can troubleshoot stuff myself.

Also, in my code where the If bPermVisible line is I forgot to activate
the sheet.

I hope my version didn't offend! (I just couldn't see the point of
looping the sheets collection twice in the same routine!)

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion