从工作表的特定范围打开超链接的Vba代码

我有一个工作表，在B列中有超链接（excel文件的路径），我想浏览该列并从该超链接打开文件。我上面的代码给出了“Object Property 438 not support error”（对象属性438不支持错误）。请帮助我解决同样的问题。

以下是我将如何解决的问题

Sheets("A").Select
LastRowA = Sheets("A").Cells(Rows.Count, 
"B").End(xlUp).Row
Range("B2:B" & LastRowA).Select
Sheets("A").Range("B2:B" & LastRowA).Follow Hyperlink

根据讨论编辑代码：

Sub FollowHyperlink()
Dim rng As Range
For each rng in Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
    If rng.Hyperlinks.Count > 0 Then
        ThisWorkbook.FollowHyperlink rng.Hyperlinks(1).Address
    End If
Next
End Sub

---

此代码添加了超链接，但我的B列已经有超链接。我要做的是打开超链接中的工作簿。@yashikavaish我已经测试了上述代码，然后发布了。在单元格中添加超链接有完全不同的语法。我在B列中的值/超链接如下所述：超链接（“C:\Users\y\Documents\2018-01-05 12-15-50\KR41.xlsx”），但给定代码无法从给定路径打开此KR41.xlsx工作簿

Sub FollowHyperlink()
Dim rng As Range
Dim strAddress As String
For Each rng In Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)
    If rng.Hyperlinks.Count > 0 Then
        ThisWorkbook.FollowHyperlink rng.Hyperlinks(1).Address
    ElseIf rng.HasFormula And InStr(rng.Formula, "=HYPERLINK(") > 0 Then
        strAddress = Split(rng.Formula, Chr(34))(1)
        ThisWorkbook.FollowHyperlink strAddress
    End If
Next
End Sub