I have a program that open an excel file from file selected cell (see below).
However, I have problem to create an offset. What I want is to have the
program to read the new work order number as a third directory and then read
the filename.

Could you please help me with this matter?

Thanks in advance.
Maperalia


A B C D
E
1 WORK ORDER Location Cut FILENAME
2 2563 AA 11 AA @ 11.xls
3 2564 BB 22 BB @ 22.xls
4 2565 CC 33 CC @ 33.xls



Sub OpenSelectFilename()

Dim dcell As Range

Set dcell = ActiveSheet.Range("Bi")
directory = "S:\test\pants\" & dcell.OFFSET(-3, 0).Value & "\"
filetext = Selection.Value & ".xls"
Workbooks.Open directory & filetext
End Sub