Есть файл который помогал вытянуть часть текста из ячейки на основании разделителя Alt+Enter (файл прикладываю). Но почему, то он перестал работать. Попробовал написать пользовательскую функцию для этого (но поскольку мои знания VBA ограничиваются записью макрорекордером), то и данная функция не работает. Помогите пожалуйста вернуть работоспособность файлу или поправить функцию. Спасибо.

Function KS_line(n As Range, i As Integer)
    Dim masiv() 
    masiv = Split(n, Chr(10))
    KS_line = masiv(i)
  
End Function