Excel макрос(функ-ция) не офрешается

[ZloiJoker]

Public Function stroka()
first_ad = ActiveCell.Address 'берем адрес первой клетки
first_add = Int(Mid(first_ad, 4, Len(first_ad)))
first_colum = ActiveCell.Column ' номер столбца
next_add = Int(Mid(first_ad, 4, Len(first_ad))) 'вычленяем номер клетки
For next_add = first_add + 1 To 4304
  If Cells(next_add, first_colum).Value <> "" Then
      stroka = Cells(next_add, first_colum).Value
      Exit For
  End If
Next

End Function





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

[melix]

ZloiJoker
А при каком событии используется эта функция?

[Greyman]

А повторно не запустить? Если тебе нужно именно полный автомат, то посмотри это:
SheetChange Event
Запуск твоей функции надо будет запускать там (тока это будет очень тормозить работу с листом, ИМХО там нужно каким-нить образом проверять необходимость запуска, а уже в случае необходимости - пересчитывать).