Problemas con la función minsinceros

Uso la función minsinceros que encontré en esta página pero al momento de cerrar el libro, o de cerrar otro libro o de guardar el libro con otro nombre me sale en el resultado #¿nombre? Me esta sirviendo mucho esta función así que al que me pueda ayudar por favor se lo agradecería mucho la función es esta:
Function MINSINCEROS(Optional rango As Range) As Integer
For Each cell In rango
If cell.Value <> 0 Then
If Min = "" Then
Min = cell.Value
Else
If cell.Value < Min Then
Min = cell.Value
End If
End If
End If
Next
MINSINCEROS = CInt(Min)
End Function
Gracias.