Salvar em uma pasta do computador uma imagem url

Ola, Estou tentando salvar uma imagem no meu computador que é gerada por uma URL do google. Essa url pega o valor de uma celula qualquer da planilha e transforma em QRCode. Eu consegui anexar a imagem na planilha mas eu quero salva-la e nao aprensenta-la na planilha.
Segue o Codigo Abaixo:
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) QrCode = "" End Function