I have this code to select access datbase ..
Can u modify it to select excel workbook???
Private Sub CmdBrowse_Click()
Dim i As Integer
Dim mypath As String
Dim multiselect As Boolean
If IsAppOpen("Access", "Application") Then
MsgBox "Please close all Access applications"
Exit Sub
End If
'Set the multiselect files value - only one file can be chosen
multiselect = True
filetype = "Access database"
FileFilter = "Access databases" & Chr(0) & "*.mdb*" & Chr(0)
fileArray = GetFilesBrowse(objBrowseButton:=CmdBrowse, _
objFileList:=txtFileLocation, _
strFileType:=filetype, _
strFileFilter:=FileFilter)
List1.Enabled = True
Dim strFormName As Access.Form
Dim file As String
If txtFileLocation.Text = "" Then
Exit Sub
End If
file = Right(txtFileLocation.Text, Len(txtFileLocation.Text) - InStrRev(txtFileLocation.Text, "\"))
ShowAccessforms myDatabase:=filenames, myList:=List1, myFileLocation:=txtFileLocation
End Sub