is there something like 'hasformula' or 'exists'?

jay

Hi Jay,

if ActiveCell.Hyperlinks.Count 1 then

--


Helmut Weber

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

if ActiveCell.Hyperlinks.Count 0 !!!

Sub ifhyperlink()
For Each c In Selection
If c.Hyperlinks.Count 0 Then MsgBox c.Address
Next
End Sub

--
Don Guillett
SalesAid Software

"Jay Fincannon" wrote in message
...
is there something like 'hasformula' or 'exists'?

jay

thanky, thanky, thanky, don and helmut

Jay Atlanta Ga, USA

Sub ifhyperlink()
For Each c In Selection
If c.Hyperlinks.Count 0 Then MsgBox c.Address
Next
End Sub