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

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

cheers,

nKife