error se ha detectado un nombre ambiguo:Imprimefacturas

¡ Hola !
haber si me podeis echar una mano ya e probado de todas formas
es este
Private Sub CommandButton1_Click()
Imprimefacturas ( esta linea es el error )
UserForm4.Hide
End Sub

la macro es esta
Sub Imprimefacturas()

UserForm1.Show
Range("A2").Select
Columns("A:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"M1:N2"), CopyToRange:=Range("Z1:Z5"), Unique:=False
Sheets("Factura").Select
End Sub

van dos similares

Sub Imprimefacturas()

Range("A2").Select
Columns("A:K").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"M1:N2"), CopyToRange:=Range("P1:Z1"), Unique:=False
Application.CutCopyMode = False
Range("A2").Select
Sheets("Factura").Activate
End Sub

gracias de ante mano