compile error Ambiguous name detected<p>compile error<br/>Ambiguous name detected: Left<br/><br/>The code stops in a private procudure and highlights   Left$<br/><br/><br/><br/>Public Sub remove_letter2()</p> <p>    Dim alpha(1 To 26) As Integer<br/>    Dim x As Integer<br/>    Dim f As Form<br/>    <br/>    Set f = Screen.ActiveForm<br/>    <br/>    For x = 1 To 26<br/>        alpha(x) = 0<br/>    Next x<br/>    With rs_Client<br/>        .MoveFirst<br/>        Do Until .EOF<br/>            alpha(Asc(Left$(!Surname, 1)) - 64) = 1<br/>            .MoveNext<br/>        Loop<br/>    End With<br/>    For x = 1 To 26<br/>        If alpha(x) = 0 Then<br/>           f(&quot;toggle&quot; &amp; (x + 9)).Visible = False<br/>        End If<br/>    Next x</p> <p>End Sub</p>© 2009 Microsoft Corporation. All rights reserved.Sun, 12 Jul 2009 22:36:13 Z8998634c-0505-48f8-9955-25b38f4be8abhttp://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/8998634c-0505-48f8-9955-25b38f4be8ab#8998634c-0505-48f8-9955-25b38f4be8abhttp://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/8998634c-0505-48f8-9955-25b38f4be8ab#8998634c-0505-48f8-9955-25b38f4be8abwizard191http://social.msdn.microsoft.com/Profile/en-US/?user=wizard191compile error Ambiguous name detected<p>compile error<br/>Ambiguous name detected: Left<br/><br/>The code stops in a private procudure and highlights   Left$<br/><br/><br/><br/>Public Sub remove_letter2()</p> <p>    Dim alpha(1 To 26) As Integer<br/>    Dim x As Integer<br/>    Dim f As Form<br/>    <br/>    Set f = Screen.ActiveForm<br/>    <br/>    For x = 1 To 26<br/>        alpha(x) = 0<br/>    Next x<br/>    With rs_Client<br/>        .MoveFirst<br/>        Do Until .EOF<br/>            alpha(Asc(Left$(!Surname, 1)) - 64) = 1<br/>            .MoveNext<br/>        Loop<br/>    End With<br/>    For x = 1 To 26<br/>        If alpha(x) = 0 Then<br/>           f(&quot;toggle&quot; &amp; (x + 9)).Visible = False<br/>        End If<br/>    Next x</p> <p>End Sub</p>Sun, 12 Jul 2009 19:02:25 Z2009-07-12T19:02:25Zhttp://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/8998634c-0505-48f8-9955-25b38f4be8ab#b17215e6-0de7-42a0-b795-dadaa9fe93b8http://social.msdn.microsoft.com/Forums/en-US/isvvba/thread/8998634c-0505-48f8-9955-25b38f4be8ab#b17215e6-0de7-42a0-b795-dadaa9fe93b8wizard191http://social.msdn.microsoft.com/Profile/en-US/?user=wizard191compile error Ambiguous name detected<p>Searching other posts it seems to be a name confliction which is why i've named this function remove_letter2 instead of remove_letter. I have used the remove_letter function in some other forms and the only other lefts are;<br/><br/><br/>If VBA.Mid(strInput, Len(strInput) - 2, 1) = &quot;O&quot; Then strInput = _<br/>            Left(strInput, Len(strInput) - 3) &amp; &quot;0&quot; &amp; VBA.Right(strInput, 2)<br/><br/><br/>Case 6<br/>            If RgExp.test(Left(strInput, 3) &amp; &quot; &quot; &amp; VBA.Right(strInput, 3)) = True Then<br/>                 txtPostcode = Left(strInput, 3) &amp; &quot; &quot; &amp; VBA.Right(strInput, 3)<br/>            Else<br/>                Exit Function<br/>            End If<br/><br/><br/>.TypeParagraph<br/>        .ParagraphFormat.Alignment = wdAlignParagraphLeft<br/>        .TypeParagraph<br/><br/><br/>Payments.ClientNo FROM Client LEFT JOIN Payments ON Client.ClientNo</p>Sun, 12 Jul 2009 22:36:13 Z2009-07-12T22:36:13Z