VBA Macro Open Any File or hyperlink

[Maxtor82]

Hello community,

I am new to this and I am trying to make a tool for a collogue to open work files and hyperlinks in a list. Below is my code that I cannot get to open a file or link:

Sub FileOpener()
'
' FileOpener Macro
'
Dim NValue As String
Application.Worksheets("Report").Activate
Range("A2").Select
Do While ActiveCell.Value <> 0
        NValue = ActiveCell.Value
        ThisWorkbook.FollowHyperlink NValue, NewWindow:=True
        ActiveCell.Offset(1, 0).Select
Loop
' Keyboard Shortcut: Ctrl+o
'
MsgBox ("Finished with no errors")
End Sub

Below is the sample list:

 

[Marc L]

Hello, works on my side with valid filepath and complete url (for example cnn.com is not valid) :​

Sub Demo1()
    Dim V, R&
        V = [Report!A1].CurrentRegion.Columns(1).Value2
    For R = 2 To UBound(V)
        ThisWorkbook.FollowHyperlink V(R, 1), , True
    Next
End Sub