Hyperlinks help using a cell reference

[288enzo]

My code that is giving me trouble is -

Range("AA5").Hyperlinks.Add Anchor:=Range("AA5"), Address:="https://webaddress.com/?query=" & G5, TextToDisplay:=G5

I'm getting Run-time error 5: Invalid procedure call or argument.

Essentially, what I'm trying to accomplish is to change all cells in column G to a hyperlink. If I could get the above to work, I was going to simply copy and paste the formula down, copy cells in AA and paste them back into G.

 

[rollis13]

Why aren't you using "Option Explicit" before your macro ? it would've been of great help. By the way, what's that G5 that you have in your code ? maybe it's a variable ?

 

[288enzo]

Why aren't you using "Option Explicit" before your macro ? it would've been of great help. By the way, what's that G5 that you have in your code ? maybe it's a variable ?

I’m not using any variables.

G5 is a cell reference

 

[rollis13]

So it's a range and as such it must be treated.

 

[288enzo]

So it's a range and as such it must be treated.

I’ve tried Range(“G5”) in place of G5, I get the same error.

 

[rollis13]

Have you tried (note the added ".Value"):

[AA5].Hyperlinks.Add Anchor:=[AA5], Address:="https://webaddress.com/?query=" & [G5], TextToDisplay:=[G5].Value

 

[288enzo]

I figured it out

ActiveSheet.Range("AA5") = "=HYPERLINK(""https://webaddress.com/?query=""&G5,G5)"

 

[rollis13]

What was wrong with my post #6 ?

 

[288enzo]

What was wrong with my post #6 ?

I don't know, I didn't try it because I had figured it out.

Thank you

 

[rollis13]

Well, my suggestion was there 4 minutes before you figured it out.