creating hyperlinks fails after row 65530 with run time error 1004

the following code crashes at row 65530. Is there a workaround for this limitation?

Sub GetHyperlinks()

    Dim HyperName As String
    Dim LastRowA As Long
    
    LastRowA = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 1 To LastRowA
        HyperName = Cells(i, 1)
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=HyperName
    Next i
    
End Sub