Counting Hyperlinked Cells

[nKife]

Is there a way to count the number of cells that have hyperlinks using vba?

i.e. countif(A:A,hyperlinked)

cheers,

nKife

[Subverter]

Sub cntLinks()

Dim intLinks As Integer
intLinks = Range("A:A").Hyperlinks.Count
MsgBox intLinks

End Sub