If Dir(ThisWorkbook.Path & "\" & k & ".xls") = "" Then MsgBox "Saving New File!" ' Use for Debugging Set NewBook = Workbooks.Add With NewBook .Title = k .Subject = k .SaveAs Filename:=k & ".xls" End With Workbooks(k & ".xls").Close Else MsgBox "File Already Exists!" ' Use for Debugging End If
Welcome to FreeSoftwareServers Confluence Wiki
Overview
Content Tools