myRange.Start = myRange.End

Листинг 1.58.
Закрыть окно