При работе макроса его можно остановить кнопкой ESC. Как сделать так, чтобы выполнение макроса нельзя было прервать??

В ячейке B2 имеется число 96000  
В столбце A 96000 строк  
 
мне нужно чтобы макрос взял число из B2 и в стобце A скрыл все строки после 96000  
 
мой код не работает:  
Rows("[B2]+1:1048576").Select
Selection.EntireRow.Hidden = True  
 
Подскажите пожалуйста как это сделать.

Как сделать так, чтобы при открытии книги сразу же запускался макрос

Как сохранить лист в txt с помощью макроса с определенным название. Например Имя_файла.txt  
 
И какой формат выбирать. При сохранении несколько txt форматов. Стандартный для Windows какой?

В стобце A имеется много строк. В ячейке B1 цифрами указано количество этих строк.  
 
в макросе имеются такие строки  
Range("A1:A100").Select  
Selection.Copy  
 
как сделать так чтобы значение ячейки B1 подставлялось вместо A1:A100. Вот так:  
Range("A1:Aтут значение B1").Select  
Selection.Copy