This should get you started.
Sub TestSub()
Dim ws As Worksheet
Dim myRange As Range, LastRow As Range
Dim wb As Workbook
Dim nwb As Workbook
Set wb = ThisWorkbook
Set nwb = "path to othe workbook" ' e.g. C:\Folder1\Folder2\File.xlsx
Set ws = Worksheets("Sheet Name") ' replace with your sheet Name
With ws
Set LastRow = .Range("A" & Rows.Count).End(xlUp) 'finds last filled cell in the "A" column
End With
Set myRange = Range("A1", LastRow) 'sets a new range using the first cell "A1" and the last cell form above
For Each Cel In myRange
If Cel.Value = "your value here" Then
nwb.Open
End If
Next Cel
End Sub
Bookmarks