и все-таки формулой не получится написать?

божественно! спасибо!

и без ее подключения обычный макрос работает, а private нетошибка, принтскрин с которой приложен к первому сообщению, все равно возникает, вы можете ее увидеть, если откроете приложенный к моему предыдущему сообщению файл example PrSub.
Описываю проблему. есть макросон работает нормально. я хочу, чтобы при пересчете листа макрос запускался сам, для этого хотел написать функцию, не получилось, написал макрос
он не работает, выдает такую ошибку


Вопрос к уважаемым форумчанам: как сделать функцию из этого макроса, чтобы само пересчитывалось, если нет, то как сделать, чтобы макрос запускался при пересчете листа, при этом не было ошибки. Файлы с примерами в предыдущем сообщении
Заранее спасибо за помощь

подключил, что она дает?
если нельзя сделать такую функцию, то как хотя бы сделать с помощью Private Sub Workbook_SheetCalculate(ByVal Sh As Object) без ошибки?
приложил два листа, один с обычным макросом, другой с private sub

Читал, если вместо просто вместо Sub() написать Function() не работает, выдает ошибку #ССЫЛКА, в том и вопрос как это преобразовать правильно в функцию  

Доброго дня, как можно в екселе реализовать подбор параметра не с помощью макроса, а как функцию. Что-то типа "ВСД", она же по такому принципу работает
Написал простенький макрос, как его можно переложить в функцию, чтобы при изменении какого-то параметра в книге менялось значение, все по типу ВСД

P.S. Пытался реализовать с помощью Private Sub Workbook_SheetCalculate(ByVal Sh As Object), не работает выдает ошибку. скан приложил