vba - Excel (Office 365) restarts automatically while executing UDF

Question

Thanks in advance for your help.

I am not sure where the problem in my UDF but the excel restarts automatically after executing the program and also shows MsxBox twice with the reference value.

    Public queryString As String
    Public Function SetIt(RefCell) As String
    On Error GoTo CatchBlock
        MsgBox RefCell.Value
        queryString = RefCell.Value
        RefCell.Parent.Evaluate "SetValue(" & RefCell.Address(False, False) & ")"
        GoTo Finally
    CatchBlock:
            MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error in Function"
    Finally:
        SetIt = ""
    End Function

// For now I am trying to set the cell reference value in some other cell.

    Sub SetValue(RefCell As Range)
       RefCell.Offset(1, 1).Value = queryString
    End Sub

I am still beginner and need to accomplish another big task based on this program code execution.

Please help !!

Excel 64 bit & Office 365 is my environment

Answer 1

Waitting for answers