Remove Forbidden Character

Hello,

I'm trying to write a UDF that takes the text in a cell and returns text with a list of forbidden characters removed from it. At the moment I have the following:

Function RemoveForbiddenCharacters(Cell As String)

'Removes All forbidden Characters from a string

    Dim i As Long
    Dim TempString As String
    TempString = ""
    For i = 1 To Len(Txt)
        Select Case (Mid(Txt, i, 1))
            Case "&", "/", "\", "-", "|"
                'Do Nothing
            Case Else
                TempString = TempString & Mid(Txt, i, 1)
        End Select
    Next i
    RemoveForbiddenCharacters = TempString
End Function

code/

The problem is that the value in the cell comes out as '#NAME'

I'd be most grateful for any pointers you may have.

Thanks,
twills