compile error ambiguous name detected

[YALINIM]

Private Sub CommandButton1_Click()
Sheets("hizmet").Select
Sheets("hiz").Cells.Clear
filterbyexactdate
Sheets("hizmet").AutoFilter.Range.Copy Sheets("hiz").Range("A1")
Sheets("hiz").Select
End Sub
Sub filterbyexactdate()
Sheets("hizmet").Select
Sheets("hizmet").Range("A1:F1").AutoFilter
Sheets("hizmet").Range("A1:F1").AutoFilter Field:=2, Criteria1:=">01/01/2012", Operator:=xlAnd, Criteria2:="<01/31/2012"
End Sub




Private Sub CommandButton2_Click()

Sheets("hizmet").Select
Sheets("hiz").Cells.Clear
filterbyexactdate
Sheets("hizmet").AutoFilter.Range.Copy Sheets("hiz").Range("A1")
Sheets("hiz").Select
End Sub
Sub filterbyexactdate()
Sheets("hizmet").Select
Sheets("hizmet").Range("A1:F1").AutoFilter
Sheets("hizmet").Range("A1:F1").AutoFilter Field:=2, Criteria1:=">02/01/2012", Operator:=xlAnd, Criteria2:="<02/29/2012"



End Sub

bu komutta compile error ambiguous name detected hatası alıyorum ne yapmalıyım.

 

[Merhum İdris SERDAR]

.

İki makro adı aynı.


Sub filterbyexactdate()


.