Issue with following hyperlink from VBA that is "=Hyperlink(..."

[dman78]

I am trying to follow a hyperlink to a folder on my drive, but when I exectute the code below I get an error that says "Subscript out of range"

The hyperlink in the cell is formulated this way: =HYPERLINK(concatenate(A1,A2)

Sub GoToFileOnDrive()
  
  Dim r As Long
    r = ActiveCell.Row
    Range("AJ" & r).Select
    ActiveCell.Hyperlinks(1).Follow
 
End Sub

 

[AC PORTA VIA]

Will this work

Sub GoToFileOnDrive()
 
  Dim r As Long
    r = ActiveCell.Row
    Range("N" & r).FormulaR1C1 = "=HYPERLINK(CONCATENATE(R1C1,R2C1))"
   Range("N" & r).Select
   ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=Range("N" & r)
    Range("N" & r).Hyperlinks(1).Follow
 
End Sub