Dim FName As Variant
Dim sStr as String
sStr = "c:\citybreaks\priser\usa\order"
chdrive sStr
chdir sStr
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then
Workbooks.Open FName
ThisWorkbook.Close
End If

--
Regards,
Tom Ogilvy


"Alvin Hansen" wrote in message
...
Hi
I very try this but i can't

i have
Application.GetOpenFilename ("excel files (*.xls)","c:\city
breaks\priser\usa\order")

but i can't get i to work , what i want is to look after the file in the
place
c:\city breaks\priser\usa\order how do i write this
i can open in dokument and so on.

Alvin


"Chip Pearson" skrev:

Alvin,

Try the following code:


Dim FName As Variant
FName = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
If FName < False Then
Workbooks.Open FName
ThisWorkbook.Close
End If



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Alvin Hansen" wrote in
message
...
Hi!

Hope someone can help with a inputbox
there shall contain a file name, when click
i want to close the file I work with now, and
open the other file there are written in the inputbox.

Best regards alvin