Code:
--------------------

Dim MyPath As String
Dim MyFile As String
'-----------------------
MyPath = ThisWorkbook.Path & "MyFolder\"
MyFile = MyPath & ActiveSheet.Range("MyName").Value
Workbooks.Open FileName:=ActiveSheet.Range(MyFile).Value

--------------------


remove a cell name
Insert/Name/Define ... select name and Delete.


---
Message posted from http://www.ExcelForum.com/