I don't undedrstand why you are getting a result at all, the code looks at
the hyperlinks coolection, but by using that formula, you haven't created
one. It should fail.
However, to get whata you want, I think that you have to parse it
Dim sTmp As String
With Range("A1")
sTmp = Replace(Mid(.Formula, InStr(.Formula, "CELL("), InStr(.Formula,
")") - InStr(.Formula, "(") - 5), _
"CELL(""address"",", "")
MsgBox Left(sTmp, InStr(sTmp, "!") - 1)
MsgBox Right(sTmp, Len(sTmp) - InStr(sTmp, "!"))
End With

Signature
---
HTH
Bob
(change the xxxx to gmail if mailing direct)
> Bob,
>
[quoted text clipped - 56 lines]
>> >
>> > TIA EagleOne
Dennis - 07 Dec 2006 16:22 GMT
Looks like our last posts were almost simultanious.
Thank you for your help and knowledge. As you see, I really do try to
do my own
work and not burden others with my work. That said, you and the others
are a gift to the learning process.
EagleOne
> I don't undedrstand why you are getting a result at all, the code looks at
> the hyperlinks coolection, but by using that formula, you haven't created
[quoted text clipped - 79 lines]
> >> >
> >> > TIA EagleOne
Dennis - 07 Dec 2006 16:33 GMT
The "reason" that I did get a result was this:
I replaced a pre-existing Hyperlink formula (only) with the volitile
version. I hit return and did not realize that the hyperlink
information was still in the collection.
Therefore, I went back and removed the link and the world is back in
balance.
EagleOne
> I don't undedrstand why you are getting a result at all, the code looks at
> the hyperlinks coolection, but by using that formula, you haven't created
[quoted text clipped - 79 lines]
> >> >
> >> > TIA EagleOne
Bob Phillips - 07 Dec 2006 17:46 GMT
I'm glad about that <g>. The world was definitely a-kilter for a moment.
Bob
> The "reason" that I did get a result was this:
> I replaced a pre-existing Hyperlink formula (only) with the volitile
[quoted text clipped - 92 lines]
>> >> >
>> >> > TIA EagleOne