Hyperlink

[LovinLivin333]

I am trying to take the content of any selected cell and convert it to a
hyperlink as follows. The following code works, however, I want it to work
with whatever cell is selected instead of having the cell hardcoded in the
code ("d94").

I'm obviously a newbee and your help is appreciated

Sub Parcels()
Dim parcelNum As String
parcelNum = Worksheets("Sheet1").Range("d94").Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://gisgate.co.clark.nv.us/openweb/asp/openweb.asp?getParcel=" &
parcelNum, _
TextToDisplay:=parcelNum
End Sub

 

[Guest]

parcelNum = Selection.Value

 

[Guest]

try:

TextToDisplay:=ActiveCell.Value

 

[Leith Ross]

parcelNum = Selection.Value

Hello LovinLivin333,

To replace Range("D94") with whatever cell the user has chosen, use
ActiveCell.

Sub Parcels()
Dim parcelNum As String
parcelNum = Worksheets("Sheet1").ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://gisgate.co.clark.nv.us/openweb/asp/openweb.asp?
getParcel=" &
parcelNum, _
TextToDisplay:=parcelNum
End Sub

Sincerely,
Leith Ross