asked on
Set NewBook = Workbooks.Add With NewBook .Title = "Departure List (of People already left)" .Subject = "Departure List" .SaveAs Filename:="Departure List (of People already left).xls" End With
Select allOpen in new window