Problem beim Ausführen eines Makros (Hyperlinks)

Sub oder 

Function nicht definiert.
Kann mir da jemand bitte weiterhelfen?
Gruß
Christian

Sub RunOnce()
Dim row As Long
Application.ScreenUpdating = False
For row = 1 To Cells.SpecialCells(xlCellTypeLastCell).row
If Cells(row, 3)  "" Then
Call Worksheet_Change(Cells(row, 3))
End If
Next
Application.ScreenUpdating = True
End Sub