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
Bookmarks