In my spreadsheet I am hiding or unhiding grouped drawing images based on a
cell value. The vba code works fine until I get up to a certain amount of
images. Is there a limit on the number of images that can be hidden or is
something else wrong? Below is the code. Like I stated above, the code
works fine until I get about 45 or more images in the sheet. Thanks in
advance.

Private Sub Worksheet_Calculate()
Dim oPic As Object
Dim AmpRange As Range
Sheet13.DrawingObjects.Visible = False
Sheet13.Pictures.Visible = False
Sheet13.Shapes("Picture 1").Visible = True
Sheet13.Shapes("Picture 2").Visible = True
For Each AmpRange In Sheet13.Range("D12:I12")
With AmpRange
For Each oPic In Sheet13.Shapes
If oPic.Name = .Text Then
oPic.Visible = True
Exit For
End If
Next oPic
End With
Next AmpRange
End Sub