Inserting Pictures Into Shapes

I have written some code to insert pictures into shapes as part of a facility management problem I have.

Code takes the names from a list of pictures (ConditionList) and places each one into a corresponding shape - therefore populating a report on the facility.

Works to the point of inserting the pictures OK but if I refresh the ConditionList by adding or deleting pictures, my shapes dont refresh.


Sub ConditionPics()

Dim ConditionListCount As Integer
Dim ShapesCount As Integer
Dim ConditionList As Range

On Error Resume Next
Application.EnableEvents = False