I created a UDF but I can't run the function. Do I have to save the function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function

Works for me:

=GetHyperlinkAddress(B1) on the worksheet.

I put it in a standard module. I've got the Analysis Pack but I don't think
you need it.

Regards

Trevor


"bhilton84" wrote in message
...
I created a UDF but I can't run the function. Do I have to save the
function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as
follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function

I'm getting an error on my worksheet of #NAME? ...

What does this mean?

"Trevor Shuttleworth" wrote:

Works for me:

=GetHyperlinkAddress(B1) on the worksheet.

I put it in a standard module. I've got the Analysis Pack but I don't think
you need it.

Regards

Trevor


"bhilton84" wrote in message
...
I created a UDF but I can't run the function. Do I have to save the
function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as
follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function

Did you put it in a standard module?


--
Regards,

Peo Sjoblom



"bhilton84" wrote in message
...
I'm getting an error on my worksheet of #NAME? ...

What does this mean?

"Trevor Shuttleworth" wrote:

Works for me:

=GetHyperlinkAddress(B1) on the worksheet.

I put it in a standard module. I've got the Analysis Pack but I don't
think
you need it.

Regards

Trevor


"bhilton84" wrote in message
...
I created a UDF but I can't run the function. Do I have to save the
function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as
follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function

if you are getting the #name error, it is not recognizing it as a function.
are you typing it in or using the function wizard to enter it in the cell?

"bhilton84" wrote:

I'm getting an error on my worksheet of #NAME? ...

What does this mean?

"Trevor Shuttleworth" wrote:

Works for me:

=GetHyperlinkAddress(B1) on the worksheet.

I put it in a standard module. I've got the Analysis Pack but I don't think
you need it.

Regards

Trevor


"bhilton84" wrote in message
...
I created a UDF but I can't run the function. Do I have to save the
function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as
follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function

I didn't have it in the standard module ... THANKS EVERYONE!!!

"bj" wrote:

if you are getting the #name error, it is not recognizing it as a function.
are you typing it in or using the function wizard to enter it in the cell?

"bhilton84" wrote:

I'm getting an error on my worksheet of #NAME? ...

What does this mean?

"Trevor Shuttleworth" wrote:

Works for me:

=GetHyperlinkAddress(B1) on the worksheet.

I put it in a standard module. I've got the Analysis Pack but I don't think
you need it.

Regards

Trevor


"bhilton84" wrote in message
...
I created a UDF but I can't run the function. Do I have to save the
function
under the worksheet or workbook or something else? Also, do I need the
Analysis toolpak - VBA to make the function work. The function is as
follows:

Function GetHyperlinkAddress(Rng As Range) As String
With Rng
If .Hyperlinks.Count 0 Then
GetHyperlinkAddress = .Hyperlinks(1).Address
End If
End With
End Function