I have a worksheet which is filled with a bunch of pictures, and
depending on the layout I have there will need to be up to 500-2,000
pictures.... maybe more.

There are only six 'different' pictures however, most are copies of a
reference picture.

I want to be able to hide all the pictures or show them depending on
the value of a checkbox in a userform. Here is the code I have
(chkQCAoverlay is a check box):

Private Sub chkQCAoverlay_Change()

On Error Resume Next
Worksheets(2).Pictures.Visible = chkQCAoverlay.Value
On Error GoTo 0

End Sub

The 'on error' is there in case there are no pictures on the worksheet.


The code works if I have a few pictures (around 30) but if I have many
more, it stops hiding the pictures. Anyone know what's going on?