xl2003 example of one I did for a client recently. Opens the folder and lets
you select the file to use

Sub SAS_OpenFileToCheck()
Fn = Application.GetOpenFilename(FileFilter:= _
"Excel Files (*.xls), *.xls", Title:="Please select a file")
If Fn = False Then
MsgBox "Please start over and select a file", Title:=" SalesAid
Software"
Exit Sub
Else
Workbooks.Open Filename:=Fn
'MsgBox Fn

'Call SAS_ColorCellsFromCodeFile

MsgBox " All Done Be sure to SAVE file ", Title:=" SalesAid Software"

End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"CLR" wrote in message
...
Hi All.......

The following code works fine in XL2007, but I am working in XL2000 and it
won't run there. Does anyone know how I can achive the same thing in
XL2000,
please?

Dim strFile As Variant
On Error GoTo 200
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Filters.Add "Excel Files", "*.xl*"
.InitialFileName = ThisWorkbook.Path & "\"
.Show
strFile = .SelectedItems(1)
End With
Application.DisplayAlerts = False
Application.EnableEvents = False
Workbooks.Open Filename:=strFile

TIA
Vaya con Dios,
Chuck, CABGx3