Sub newFolder() Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) _ .Folders.Add Name:="Personal Tasks", Type:=olFolderTasks End Sub