Welcome to FreeSoftwareServers Confluence Wiki

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
  • No labels

This site is just a Tech Blog, nothing is guaranteed!