пример :  
 
лист1 (лист с введёнными данными )  
Яблоко      60г  
Арбуз       2000г  
Банан       80г  
 
лист2  
выпадающий список  
Банан       (_____) - (здесь должен автоматически выводится вес(числовое значение) из лиса1 (80) , и при выборе в выпадающем списке иного товара вес (числовое значение) должно меняться в соответствии с первым листом .  
 
Заранее большое спасибо ! ! !

В книге присутствуют нестандартно про именованные листы ,в которых присутствует соответственно группировка строк/столбцов .    
Как снять запрет с группировки на одном листе я разобрался :  
Private Sub Workbook_Open()  
   Sheets("Лист1").EnableOutlining = True '  
   Sheets("Лист1").Protect Contents:=True, userInterfaceOnly:=True  
End Sub  
Вопрос : Как Сие продлить на остальные листы или применить к всей книге?  
Пытался методом научного тыка (так - как не силён в макросах и т.п.)  
Private Sub Workbook_Open()  
   Sheets("Лист1").EnableOutlining = True ' Подставьте ссылку на нужный лист  
   Sheets("Лист1").Protect Contents:=True, userInterfaceOnly:=True  
End Sub  
-----------------------------------------------------------------------------------  
Private Sub Workbook_Open()  
   Sheets("Лист2").EnableOutlining = True ' Подставьте ссылку на нужный лист  
   Sheets("Лист2").Protect Contents:=True, userInterfaceOnly:=True  
End Sub  
так не работает . Подскажите/поделитесь мудростью как исправить положение .Заранее  
благодарю .

При авто заполнении ячеек хотелось бы чтоб менялся не горизонтальный / вертикальный адрес ячейки , а номер листа.  
"Лист1"!$A$1  
"Лист2"!$A$1                                                    
"Лист3"!$A$1  
и т.д.  
Если это возможно то как ? Заранее большое спасибо.