VBA function does not show up

[Sanya]

Hi,
I am trying to write a new user defined function, but it doesn't show up on the list of the options when I go to cell and press "=". Maybe someone can point what the problem is. It suppose extract middle section from the Full Name (FN) text.
Thank you very much

Function AssignmentNo(FN As String)
If Mid(FN, Len(FN) - 8, 1) = "-" Then
AssignementNo = Mid(FN, Len(FN) - 16, 10)
Else
AssignementNo = Mid(FN, Len(FN) - 14, 8)
End If
End Function

 

[Jonmo1]

It should be written as
Public Function...

And it needs to go in a standard module (Insert - New Module).
NOT in a sheet module.

 

[Sanya]

Thank you for your reply.

Still nothing. It is in a new module, in Personal Workbook.