Try something like this: - adjusted for your names


On Error Resume Next
MkDir ThisWorkbook.Path & "\NEW DIRECTORY NAME"
ChDir ThisWorkbook.Path & "\NEW DIRECTORY NAME"
ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\NEW DIRECTOR
NAME\MyFileName.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False



HT

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com