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