Ambiguous Name detected:Worksheet.SelectionChange

[wsautrey]

Using Excel 2003
I get Ambiguous Name detected: Worksheet.SelectionChange error from code below. I need to find a way to eliminate the duplication of:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Any suggestions on how to rename or join the 2.

Thanks!



Private Sub btnSpellCheck_Click()

SpellCheckD010

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = D010.Range("IncidentDes").Row And Target.Column = D010.Range("IncidentDes").Column Then
If Len(Target.Value) > gciMaxTxtLen Then
Load frmTextEntry
frmTextEntry.Show
D010.Range("SC1").Select
End If
End If

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

Set rng = Intersect(Target, D010.Range("IncidentDes"))
If Not rng Is Nothing Then
Load frmTextEntry
frmTextEntry.Show
D010.Range("SC1").Select
End If

End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = CDbl(Calendar1.Value)
ActiveCell.NumberFormat = "mm/dd/yyyy"
ActiveCell.Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then
Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
' select Today's date in the Calendar
Calendar1.Value = Date
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub