Object error when running macro

[dcgrove]

Hello, the macro below worked on roughly 65000 cells before it started giving me the error pictured below. Now any macro I run gives me this error. Any idea why?

Public Sub Convert_To_Hyperlinks()
    Dim Cell As Range
    For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
        If Cell <> "" Then
            ActiveSheet.Hyperlinks.Add Cell, Cell.Value
        End If
    Next
End Sub

excel object error.JPG

Thanks!