Bruce
Dim sPath As String sPath = "C:\Testing1" MkDir sPath ThisWorkbook.SaveAs sPath & "\" & "Myfile.xls"
Patrick MolloyMicrosoft Excel MVP
>.>