Sub delete() Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) _ .Folders("Personal Tasks").Delete End Sub