Public Sub WorkWithTasks()
	'Работа с задачами
	Dim Tsk As Task
	Debug.Print Application.Tasks.Count
	For Each Tsk In Application.Tasks
		Debug.Print Tsk.Name
	Next Tsk
	
End Sub