Проверка ячеек на содержание гипперссылки

Sub Ìàêðîñ1()
For i = 1 To 1500
If Cells(i, 4).Hyperlinks.Count = 0 Then
  '  If ActiveCell.Hyperlinks.Count = 0 Then
'êîä äëÿ äîáàâëåíèÿ ãèïåðññûëêè
Else
Cells(i, 22) = 1
'MsgBox ActiveCell.Hyperlinks(1).Address & vbLf & ActiveCell.Hyperlinks(1).SubAddress
End If

Next
End Sub