Hello
See help in VBA on GetOpenFilename and GetSaveAsFilename methods.

Dim FileToOpen
FileToOpen = Application.GetOpenFilename("Excel Files, *.xls", , "File ?")
'Cancelled
If FileToOpen = False Then Exit Sub
MsgBox FileToOpen

Dim FileToSave
FileToSave = Application.GetSaveAsFilename(, "Excel Files, *.xls", , "Save
as:")
If FileToSave = False Then Exit Sub
MsgBox FileToSave

HTH
Cordially
Pascal


"seven" a écrit dans le message de news:
...
I am using Excel2003, now I have a question during my work. I want to use
excel vbs to solve a problem, so I used the record mode to get a macro,
the
question is:
How can I change the vbs code so that when I run the marco, it popup some
window message to let me to browse and choose the xls (for I have to deal
with many different .xls in the same way) I need, at the end of code, I
want
a same window popup to ask me to save as. Can you provide me with an
example? Thanks very much.