Foro Excel

Estoy utilizando la siguiente funcion

Function saldo2(Look_Value As Variant)
Dim XAPP As Object
If IsNumeric(Look_Value) Then
Cuenta = Format(Look_Value, "#########")
Else
Cuenta = Look_Value
End If
Set XAPP = CreateObject("balance.balance")
saldo2 = XAPP.saldo(Cuenta, 1)
End Function

Siguiendola con el Debug, me dia cuenta que cada vez que se ejecuta crea el objeto XAPP

Como puedo utilizarla para que solo se cree una vez ?

Coloca al final
Set XAPP = Nothing
í‰xitos