View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Spiggy Topes Spiggy Topes is offline
external usenet poster
 
Posts: 22
Default Macro to Open excel file when file name is entered in cell

Application.FileSearch will do this for you. Lifted almost exactly
from the help sample:

Option Explicit

Private Sub CommandButton1_Click()
Dim fs As FileSearch
Dim i As Integer

Set fs = Application.FileSearch
With fs
.LookIn = "C:\Wherever"
.SearchSubFolders = True
.Filename = Cells(1, 1)
If .Execute() 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With

End Sub

Opening the file I leave to you, as you didn't say what kind of file
it might be. If it's another Excel workbook ,then
Workbooks.Open .FoundFiles(i)
would do the trick. Otherwise, you could use the ShellExecute API call
to launch the appropriate application for the selected file.