Delete Picture & Add Replacement

I have some code to insert a picture based on the value of a cell. The user would select the name of the item by selecting the cell and then clicking a macro button.

In my code I need to delete the previous picture first. I used the following


Sub get_system_picture()

Dim pic As Shape
Dim picname As String

picname = ActiveCell.Value
On Error Resume Next

'exit sub if selection is not a system number
If IsEmpty(ActiveCell) Then
MsgBox "Please select a system number first!"
Exit Sub
End If

If Not ActiveCell.Column = 2 Then
MsgBox "Please select a system number first!"
Exit Sub
End If

The problem is this also deletes my macro button! Any suggestions?