Function QR_Code(Target As Range, MyURL As String)
With ActiveSheet
For Each pic In .Shapes
If pic.TopLeftCell.Address = Target.Address Then pic.Delete
Next
With .Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=100x100&color=fff&bgcolor=000&data=" & MyURL)
.Top = Target.Top
.Left = Target.Left
End With
End With
End Function