Thắc mắc về hàm chèn hình ảnh

[techmodule]

Xin chào
Mình có sử dụng hàm sau của anh Tuấn

Function CommPic(Pic As String, Cel As Range) As String​

On Error Resume Next Application.Volatile Cel.Comment.Delete If Cel.Comment Is Nothing Then Cel.AddComment Cel.Comment.Text vbLf With Cel.Comment.Shape .Left = Cel.Left: .Top = Cel.Top: .Visible = True .Width = Cel.Width: .Height = Cel.Height .Fill.UserPicture Pic End With

End Function​

Ví dụ mình sử dụng là A 1 =commpic(B1;A1) , nhưng khi mình xóa link ở trong B1 thì hình ảnh vẫn còn, có cách nào tự động xóa hình ảnh đi khi ô đó trống k?
Xin cảm ơn