ممكن مساعدة في مشكل "Ambiguous name detected"

[طارق2016]

المرجو المساعدة في مشكل "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