Hyperlinking cells

Please have a look at the below sub. I have created 2 such subs for different sheets. One of the 2 is working fine. But for the other I get the error message in Excel that the "Reference is not valid".

I douple checked the code and looked at the actual hyperlinks that are created (by moving the cursor over the author with the hyperlink). Everything looks OK.

Does anybody know why I get this error message in Excel?

Sub Macro1()

Dim LastRow As Long
Dim i As Long

'Make hyperlink from Authors on sheet J-Journals to sheet J-Affiliation
        
    Sheets("J-Journals").Select
    LastRow = Sheets("J-Journals").Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To LastRow
        With Worksheets("J-Journals")
            .Hyperlinks.Add Anchor:=.Range("A" & i), Address:="", SubAddress:="J-Affiliation!A" & i
        End With
    Next i
    
End Sub