Hyperlink

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top