Function causing a little problem

[omairhe]

Hey all,

This function will allow only the alphanumeric characters when applied to a cell. However with new workbooks all goes well but with my old workbook the very function will cause the workbook to prompt user to save file, even though no changes are made to it. This can be a little annoying and I would like to make it go away. It is very clear that the function is causing this problem as removing it fixes the issue.

Function AlphaNumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122: 'include 32 if you want to include space
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    AlphaNumericOnly = strResult
End Function

Will appreicate a lot.
Thanks.

 

[omairhe]

If I set up a sheet as you described here:

it works just fine for me. I do not get prompted to re-save the file when I open it and then try to close it.

So if you do not have a good, representative file that to upload that has this problem, then I really have nothing else to offer on this issue.

I suspect the problem is with something along the lines of:
- Other VBA code (especially if you have event procedure code or are messing around with calculation methods)
- You have a circular reference

Dear Joe ,
Thanks for looking into this.
Well, I was hoping it would give that prompt. I will going to check this with my other PC with different version of office installed and maybe post some relevent information.