Несложный макрос в vba

Question

Макрос, который запросит название листа exсel у пользователя и посчитает среднее арифметическое чисел в колонках a,b,c того листа, который запросили.

Евдокия Лабазова · Accepted Answer

Зачем спрашивать название листа у юзверя: 
 
названиеЛиста = АсtiveSheet.Name 
 
среднее вычислим формулой в D1 
cells(1,4).FormulaLocale = "=СУММ (A:C)"

Юрий Бухонин · Answer

dim k as string 
k = InputBox("Введите название листа") 
worksheets(k).cells(1,5) = "=СУММ (A:C)" 
 
хотя вряд ли так просто он его за формули прмет, там кокой то метод для этого есть, я уж не помню как называется.