L
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
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