Replace text in cell with picture (or insert picture into same cell)

[mdmackillop]

Haven't got your file but try this. Pics can be inserted using Events or called by propagate code

Sub AddPics(ws)
    Dim c As Range, i As Long
    For i = 1 To 9
        Set c = ws.Cells.Find("z." & i, lookat:=xlWhole)
        If Not c Is Nothing Then
            Sheets("Pics").Shapes("Picture " & i).Copy
            c.PasteSpecial xlPasteAll
        End If
    Next i
End Sub