Run time Error 5 trying to add hyperlink

[sharky12345]

I'm using this procedure to try and add a hyperlink to a range of cells but I keep getting a run time error:

    Dim LastRow As Long
    Dim WS As Worksheet
    Dim Cell As Range

    Set WS = ThisWorkbook.Sheets("COPY")
    LastRow = WS.Range("A65536").End(xlUp).Row
    
    Application.ScreenUpdating = False

    For Each Cell In WS.Range("A2:A" & LastRow)
    
        Path = "ds://" & Cell.Offset(0, 7).Value
        ScreenTip = "Link"
        TextToDisplay = Cell.Offset(0, 1).Value
        Cell.Offset(0, 8).Select
        ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=Path, ScreenTip:=ScreenTip, TextToDisplay:=TextToDisplay

    Next

    WS.Range("I2:I" & LastRow).Select
    With Selection.Font
        .Name = "Tahoma"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ThemeColor = xlThemeColorHyperlink
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    WS.Range("A2").Select

    Application.ScreenUpdating = True

I'm getting a run time error 5, invalid procedure call or argument and it fails on this line:

ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=Path, ScreenTip:=ScreenTip, TextToDisplay:=TextToDisplay

Can anyone advise why and how to resolve it?

 

[Fluff]

That code works for me, but you should avoid using VBA terms for the names of variables & procedures.
Try changing the your variable names Path, ScreenTip, TextToDisplay & see if that helps.

 

[sharky12345]

Cheers Fluff - I've tried changing the names but I get the same error so I have no idea what's going on.

 

[Fluff]

Make sure you don't have any blank cells in col B.