Page tree

Welcome to FreeSoftwareServers Confluence Wiki

Skip to end of metadata
Go to start of metadata
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