Function QrCode(codetext As String) Dim URL As String, MyCell As Range Set MyCell = Application.Caller URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext On Error Resume Next ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete On Error GoTo 0 ActiveSheet.Pictures.Insert(URL).Select With Selection.ShapeRange(1) .PictureFormat.CropLeft = 15 .PictureFormat.CropRight = 15 .PictureFormat.CropTop = 15 .PictureFormat.CropBottom = 15 .Name = "QR_" & MyCell.Address(False, False) .Left = MyCell.Left + 2 .Top = MyCell.Top + 2 End With QrCode = "" End Function