Огромное спасибо ! О такой минимизации я и не мечтал!

Добрый день.  
На одном листе находится список компаний, который нужно сортировать по алфавиту А-Я при уходе с этого листа.  
 
Запись макроса с помощью эксель помогла, но код получается огромным  
 
Private Sub Worksheet_Deactivate()  
 
 ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear  
   ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("A4"), _  
       SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal  
   With ActiveWorkbook.Worksheets("Лист1").Sort  
       .SetRange Range("область_печати")  
       .Header = xlGuess  
       .MatchCase = False  
       .Orientation = xlTopToBottom  
       .SortMethod = xlPinYin  
       .Apply  
   End With  
   
End Sub  
 
 
На форуме нашел проще и подредактировал под себя:  
 
Private Sub Worksheet_Deactivate()  
Application.ScreenUpdating = False  
Лист1.Range("Область_печати").Sort Key1:=Range(ActiveCell, ActiveCell.End(xlUp)),  Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _  
Orientation:=xlTopToBottom  
Application.ScreenUpdating = True  
End Sub  
 
Но этот вариант не работает.  
Помогите минимизировать код.

{quote}{login=слэн}{date=14.02.2012 12:59}{thema=}{post}мож так?{/post}{/quote}  
 
ОГРОМНОЕ СПАСИБО !!!  
Сам бы не сделал =)

Спасибо. Но чёт не работает - вставляю сюда:  
ListBox1.List = Range("Лист1!Область_печати").Value  
 
если нужно, пример во вложении

Добрый день.  
Можно ли изменить область видимости автоматически создаваемого диапазона «Область_печати» с Лист, на Книга ?  
 
Это нужно для того, чтобы выбирать значения этого диапазона из списка на другом листе.

Добрый день!  
 
Очень прошу помочь с решением интересной задачи.  
Речь идет о форме, с помощью которой можно искать значения в списке и выбирать не одно, найденное (!), а несколько.  
Естественно я пытался найти решение почти по всему форуму, прежде чем создать новую тему.  
 
http://www.planetaexcel.ru/forum.php?thread_id=33137 - тут автор сделал почти то, что нужно (прямо файл  post_269925 из первого сообщения), но без возможности выбрать несколько значений из списка.  
ещё в одной теме был реализован выбор нескольких значений (см. приложенный файл, не помню адрес темы), но без возможности поиска по самому списку.  
и таких тем, в которых реализована только половина задачи много. А их очень нужно совместить!  
 
Уважаемые гуру VBA, помогите.