Help with buggy code, copies shape in one sheet and pastes to anchor cell in other sheet

Hello,
I have attached an example workbook that will fail the task if the buttons 1 through 3 are randomly and quickly clicked on repeatedly. This does simulate the problem that I am having. On the full workbook the picture delete and paste works only at about a 50% rate and seems to have a very hard time recovering. The attached workbook needs a lot of repeated random clicking of the 3 buttons to fail only 2-5% of the time but the failure is the same. The code that deletes old pics first works but the failure comes in past opperation.
PicError.JPGPicError2.JPG
Trying to attach the workbook. Thanks, Bud

PictureCopyPasteExample.xlsm

Originally Posted by tony h

There are two approaches:
1. ignore button presses until the actions are complete for the one in progress. The normal way to do this is to disable and enable buttons at the start and end of the routine. Or set a flag at the start and end and test it at the start to see if a routine is in progress
2. stack up the clicks and play them all in sequence - a lot more difficult to achieve in Excel - actually might not be possible in native Excel

Please Login or Register  to view this content.

Thanks Tony H,
I'll give it a try. Just to clarify that the repeated pushing of the buttons on the example workbook only simulates what is going on in my full workbook. In that workbook there will be at minimum 30 plus seconds to several minutes between button clicks and this code request and still it will fail. Now I'm wondering if something else is happening in the background that I can't see.
I'll give it a go though and if the buttons are inactive then that may give me a clue as well.

Thanks,
Bud

Originally Posted by tony h

you might want to set some sort of flag on the worksheet to see if IsInUse is set or not. Eg colour a cell red when true and green when you set IsInUse to false.

PS I couldn't get your demo to error. So I set up a random loop to go through a thousand clicks and it still didn't error - the pictures didn't change as screen repainting lagged behind but it didn't error.

Interesting that you couldn't get the workbook to fail at all. I have a lot of memory and CPU speed in my laptop and I can get it to fail easily. Its one thing if the screen repaint is not keeping up but to not fail and give you a code is another.
Again makes me wonder if something else is going on. I like the cell flagging for a visual reference so I'll try that too.