have a look at GetSaveAsFilename & GetOpenFilename



fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If


---
Message posted from http://www.ExcelForum.com/