Hi
maybe the following is what you're trying to do?
Sub testit()
Debug.Print "Result: ", Test(Range("test"))
End Sub

Function Test(retireDate As Range)
Dim foo
foo = retireDate.Name
Test = foo
End Function

--
Regards
Frank Kabel
Frankfurt, Germany


Lucifer wrote:
I am trying to write a function that will take a different action
based upon the name of a range passes to it. As I understand it the
Range.Name returns a Name object. However, I can't get by the
invalid use of Property

Sub testit()
Debug.Print "Result: ", Test(Range("Retire_Date_Primary"))
End Sub

Function Test(retireDate As Range) As Integer
Dim foo As Name
foo = retireDate.Name
End Function

Frank,

If I read it correctly, this should be

Function Test(retireDate As Range)
Test = retireDate.Name.Name
End Function


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Frank Kabel" wrote in message
...
Hi
maybe the following is what you're trying to do?
Sub testit()
Debug.Print "Result: ", Test(Range("test"))
End Sub

Function Test(retireDate As Range)
Dim foo
foo = retireDate.Name
Test = foo
End Function

--
Regards
Frank Kabel
Frankfurt, Germany


Lucifer wrote:
I am trying to write a function that will take a different action
based upon the name of a range passes to it. As I understand it the
Range.Name returns a Name object. However, I can't get by the
invalid use of Property

Sub testit()
Debug.Print "Result: ", Test(Range("Retire_Date_Primary"))
End Sub

Function Test(retireDate As Range) As Integer
Dim foo As Name
foo = retireDate.Name
End Function

Hi Bob
yes, correct :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
Frank,

If I read it correctly, this should be

Function Test(retireDate As Range)
Test = retireDate.Name.Name
End Function



"Frank Kabel" wrote in message
...
Hi
maybe the following is what you're trying to do?
Sub testit()
Debug.Print "Result: ", Test(Range("test"))
End Sub

Function Test(retireDate As Range)
Dim foo
foo = retireDate.Name
Test = foo
End Function

--
Regards
Frank Kabel
Frankfurt, Germany


Lucifer wrote:
I am trying to write a function that will take a different action
based upon the name of a range passes to it. As I understand it
the
Range.Name returns a Name object. However, I can't get by the
invalid use of Property

Sub testit()
Debug.Print "Result: ", Test(Range("Retire_Date_Primary"))
End Sub

Function Test(retireDate As Range) As Integer
Dim foo As Name
foo = retireDate.Name
End Function

Frank

I'm rather suprised this works. As I understand it the Range("").Name method returns a Name object. What I want to do is interrogate the Name object and take a different path depending upon the name of the range passed into the function

Why doesn't this compile

Function Test(retireDate As Range) As Intege
Dim foo As Nam
foo = retireDate.Nam
Debug.Print fo
End Functio

So in my example, foo is a Name object and range.Name should return a Name object..... Confusing....

It doesn't, for the reasons you state. See my reply.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Lucifer" wrote in message
...
Frank,

I'm rather suprised this works. As I understand it the Range("").Name
method returns a Name object. What I want to do is interrogate the Name
object and take a different path depending upon the name of the range passed
into the function.

Why doesn't this compile:

Function Test(retireDate As Range) As Integer
Dim foo As Name
foo = retireDate.Name
Debug.Print foo
End Function

So in my example, foo is a Name object and range.Name should return a Name
object..... Confusing....