copy the website address for cell excel

[elsg]

Hi.
How to copy the website address for cell excel?

Sub CopyAdressToCell()Dim n As String
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
Range("A2").Value = n '<- I try this
End Sub

 

[Norie]

That code will fail if you declare n as a string, if you declare it as an Object n would refer to the picture you've inserted, not a website address.

What exactly are you trying to do?

 

[elsg]

Hi.
I would like to leave the address "http://www.google.com.br/images/srpr/logo4w.png" written in cell

 

[Norie]

Can't you just use something like this?

Range("A2").Value = "http://www.google.com.br/images/srpr/logo4w.png"

 

[elsg]

Hi.

Thank you!!!