try
Dim sFile As String
sFile$ = Application.GetOpenFilename
you will still to add code to open the file
for save as try
sFile$ = Application.GetSaveAsFilename
--
mudraker
------------------------------------------------------------------------
mudraker's Profile:
http://www.excelforum.com/member.php...fo&userid=2473
View this thread:
http://www.excelforum.com/showthread...hreadid=536692