Можно ли получить адрес ячейки(единственной или только левой верхней) под фигурой?

При попытке закрыть книгу Book.xlsx с помощью запущенного макроса в другой книге, выдает запрос - Сохранить книгу или нет?  
 
Excel 2007  
 
Макрос:  
Sub test()  
Application.DisplayAlerts = False  
Workbooks("Book.xlsx").Close SaveChanges:=False  
Application.DisplayAlerts = True  
End Sub  
 
Как избавиться от запроса на сохранение?

Параметры страницы:    
100% от нормального рамера  
Ориентация альбомная  
Бумага A3  
____________________________  
Если увеличивать/уменьшать масштаб от 10% до 100% пропорциональность сторон листа резко меняется. К примеру на 20% лист больше похож на портретный, при 30% - выглядит нормально, при 40% - снова портретный, при 50% почти квадрат, при 60% тоже нормально, и тд.    
 
Можно ли реализовать адекватный зум?

Помогите определить имя(или индекс) конеткстного меню, вызванного кликом по фигуре (см. картинку)

Можно ли реализовать добавление/удаление или может быть активацию/деактивацию точек присоединения в шейпах?

Лист макросов MS Excel 4.0 надежно скрыт, его не найти в окне Unhide, его нет в дереве проектов в VBA, как будто его вообще нет, вот только Sheets.Count выдает его предательское наличие, а с помощью .Name можно узнать как его зовут.  
 
Так подскажите пожалуйста, куда нажать в Excel'е чтобы отобразить этот лист?  
Я нашел только такой способ: Sheets("Macro1").Visible=True

Можно ли настроить условное форматирование: Если A1=C1, то выводится значок "галка", если A1<>C1, то выводится значок крестик?

Excel 2007  
Нажимаю Record Macro  
Затем Insert->Shapes->Rectangle  
Рисую на листе прямоугольник  
Останавливаю макрос  
Вижу в редакторе следующее:  
 
Sub Macro1()  
'  
' Macro1 Macro  
'  
 
'  
End Sub  
 
Нет ни названия/типа вставленного объекта, ни его размеров, ни координат. (также код не появиться, если "таскать" фигуру по листу, меняя координаты) Возможно я ошибаюсь, но в Excel 2003 редактор исправно "писал" код. Я знаю как на VBA написать данный код, поэтому нет необходимоти приводить примеры. Вопрос в том, почему VBA халтурит и не дает пользователю кода?

Следующий пример, приведенный в справке, зарекомендовал себя, но только для Sub. Может кто-нибудь объяснить, почему он не работает в Function? (Если его запустить в режиме отладки, то при первом же FindNext'е c становиться равно Nothing  
 
Function test()  
With Worksheets(1).Range("a1:a500")  
   Set c = .Find(2, lookin:=xlValues)  
   If Not c Is Nothing Then  
       firstAddress = c.Address  
       Do  
           'c.Value = 5  
           Set c = .FindNext©  
       Loop While Not c Is Nothing And c.Address <> firstAddress  
   End If  
End With  
End Function

Пытаюсь собрать формулу, для суммирования значений по 2 условиям в пределах именованного диапазона.  
 
На всем листе формула работает так: =SUMIFS('Sheet1'!R:R,'Sheet1'!A:A,H1,'Sheet1'!L:L,AX1)  
 
Можно ли заставить ее считать в диапазоне MyRange (='Sheet1'!$2000:$3000)?  
 
Заранее спасибо!