После установки значения в ячейке функции / суб, программа выходит - Macro VBA

Question

После поиска более этого решения я спросил в SO. Я просто пытаюсь автоматизировать работу и новый би в коде VBA. Здесь я сталкиваюсь с проблемой, когда я обновляю значение ячейки в Excel, используя макрос. Затем программа останавливает его, не переходя к следующему шагу.

Мой пример кода:

Private Function trim_Func(i As Integer, j As Integer) As String
    Dim fStr As String
    Set Workx = ActiveWorkbook.Sheets("Sales").Cells(i, j)
    fStr = ActiveWorkbook.Sheets("Sales").Cells(i, j)
    fStr = trim(fStr)
ActiveWorkbook.Sheets("Sales").Cells(i, j) = fStr
    MsgBox Workx
    trim_Func = "Yes"
End Function

Здесь После этой строки "ActiveWorkbook.Sheets("Sales").Cells(i, j) = fStr функция перестала вызывать MsgBox или что-либо другое. Но значение изменилось. У меня после этого есть другая функция, которую нужно вызвать.

Редактировать: функция обрезки вызывается следующим образом после нажатия кнопки на листе Excel.

Private Sub CommandButton1_Click()
Dim data_value As String
data_value = trim_Func(2, 6)

// Some other conditions and functions

Редактировать:

Я предоставил образец протестированного снимка экрана. Он не возвращает функцию или не идет рядом с тем значением, измененным в ячейке. Excel:

Код:

Answer 1

Спасибо всем. Я нашел решение после долгих размышлений. Сделал некоторую ошибку, присвоив значение в Set. Это проблема.

Function trim_Func(i As Integer, j As Integer) As String
        Dim fStr As String
        fStr = ActiveWorkbook.Sheets("Sales").Cells(i, j)
        fStr = trim(fStr)
        ActiveWorkbook.Sheets("Sales").Cells(i, j) = fStr
        trim_Func = "Yes"
End Function