求助，加入这段删除图片代码，自定义函数怎会错误？

我用激活单元格写怎正常。但这样写，你激活任意一个工作表，图片就会在另一个工作表上也显示。
Function intjpg(ByVal 工作表 As String, ByVal 文件名 As String, ByVal 插图单元格 As Range)
Dim PATH$, 工作表文件名$, shp As Worksheets
n1 = 插图单元格.Row
n2 = 插图单元格.Column
For Each shp In ActiveSheet.Shapes
If shp.TopLeftCell.Address = Cells(n1, n2).Address Then
‘这样写也行 If shp.Top = Cells(n1, n2).top Then
shp.Delete
Exit For
End If
Next '删除以存在的图片
'-------------------------------------------------------------------
PATH = ThisWorkbook.PATH & "\" & 文件名 & ".jpg" '图片路径
If 工作表 = "*!" Then '工作表名对比
工作表文件名 = Worksheets(Left(工作表, Len(工作表) - 1)).Name
Else
工作表文件名 = Worksheets(工作表).Name
End If
'----------------------------------------------------------------------
With 插图单元格(1, 1) '插入图片简化代码
Worksheets(工作表文件名).Shapes.AddPicture PATH, 1, 1, .Left, _
.Top, _
.Width, _
.Height - 10
End With
End Function
'---------------------------------------------------------