Boa noite!!

Eu não entendi o sentido de fazer isso.
Mas tente..Leia:
http://vba-corner.livejournal.com/4623.html

Sub Importar()
Set n = ActiveSheet.Pictures.Insert("http://www.google.com.br/images/srpr/logo4w.png")
With Range("B2")
t = .Top
l = .Left
End With
With n
.Top = t
.Left = l
End With
[A1].value="http://www.google.com.br/images/srpr/logo4w.png"
' ou -> Range("A1").Value="http://www.google.com.br/images/srpr/logo4w.png"
End Sub

Quanto a segunda pergunta, tente..
viewtopic.php?f=21&t=7086

Att

Se entendi, você quer ter o endereço em "A1" e associa-lo a uma Variável na Rotina, se for isto, tente a rotina abaixo :

Supondo que em A1 temos o endereço :

Sub Importar2()
    
    Dim sLinkFigura
    
    sLinkFigura = [A1]
    
    Set n = ActiveSheet.Pictures.Insert(sLinkFigura)
    
        With Range("B2")
            t = .Top
            l = .Left
        End With
        
        'Posição e Tamanho da figura
        With n
            .Top = t
            .Left = l
            .Height = 55
            .Width = 51
        End With
End Sub

[]s

Pessoal,
Muito Obrigado. Isso vai me ajudar d+.