منتدى المحاسبين المصريين - ممكن مساعدة في مشكل "Ambiguous name detected"

المرجو المساعدة في مشكل "Ambiguous name detected."
حيت ان في ورقة واحدة يوجد كودين الا انه اظن ان هناك تداخل بينهما أثناء الاشتغال .

كود:

Option Explicit

 

Private Sub CommandButton1_Click()

 

End Sub

 

Private Sub ScrollBar1_Change()

 

End Sub

 

Private Sub TextBox1_Change()

    ActiveSheet.Range("b6").AutoFilter Field:=2, Criteria1:=TextBox1 & "*"

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Target.Address = "$C$2:$E$2" Then

        TextBox1 = ""

        [a5].AutoFilter

 

    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo MS

If Intersect(Target, Range("D42")) Is Nothing Then

Cells(56, 11) = Cells(56, 11) + Cells(42, 4)

MS:

Cells(42, 4) = ""

End If

End Sub