Any idea?
Shaul Bel
Function HasHyperlink(rng As Range) As Boolean
On Error Resume Next
HasHyperlink = (Len(rng(1).Hyperlinks(1).Address) <> 0)
End Function
tested with:
Sub testme()
MsgBox HasHyperlink(ActiveCell)
End Sub
--
Dave Peterson
ec3...@msn.com
If Range("a1").Hyperlinks.Count > 0 Then
HTH
Dick K.
Shaul Bel <shau...@netvision.net.il> wrote in message
news:ONHce5aiBHA.2428@tkmsftngp03...
Shaul Bel
"Dick Kusleika" <di...@paragonconstructioninc.com> wrote in message
news:#Mob0DbiBHA.2572@tkmsftngp04...