Makro kod çakışması

[sinnernekolens]

iyi günler arkadaşlar, aşağıdaki iki kodun çakışmasını nasıl engelleyebilirim? iki tane auto_open var. yardımlarınız rica olunur.

Hata mesajı: Ambiguous name detected: auto_open

Public sonSayfa As String
Sub auto_open()
Application.OnKey "%q", "xxx"
End Sub
Sub xxx()
If sonSayfa = "" Then Exit Sub
Sheets(sonSayfa).Select
End Sub
*************************
Sub auto_open()
Application.OnKey "{F9}", "Aç"
End Sub
Sub Auto_Close()
Application.OnKey "{F9}", ""
End Sub
Sub Aç()
UserForm1.Show 0
End Sub

 

[Muzaffer Ali]

auto_open kodlarını aşağıdaki gibi alt alta yazsanız olmuyor mu?

Public sonSayfa As String
Sub auto_open()
    Application.OnKey "%q", "xxx"
    Application.OnKey "{F9}", "Aç"
End Sub

Sub Auto_Close()
    Application.OnKey "{F9}", ""
End Sub

Sub Aç()
    UserForm1.Show 0
End Sub

Sub xxx()
    If sonSayfa = "" Then Exit Sub
    Sheets(sonSayfa).Select
End Sub

 

[sinnernekolens]

Teşekkür ederim şimdi oldu.