Hyperlink internal VBA function

R

Ronio

According to the VBA help there is supposed to be an internal function called
HYPERLINK. However, whenever I attempt to use it I get an Compile Error:
Function not defined. Any assistance would be great.


Sub RouterModemSearch()

Dim Hlinkstr3 As String
Dim Hlinkstr4 As String
Dim shapesObj As Visio.Shapes
Dim shapeObj As Visio.Shape

Set shapesObj = ActiveDocument.Pages.Item(1).Shapes
Set shapeObj = shapesObj.Item("DataBox1")

Hlinkstr3 = shapeObj.Cells("user.SiteR_name.Value").ResultStr(0)
Hlinkstr4 = "http://hal.corp.com/audit/getmodem.php?cli=" & Hlinkstr3

Hyperlink (Hlinkstr4)
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