Yardım vba doğru girilen kod fakat hata veriyor

Private Sub CommandButton1_Click()
If txtAranan = "" Then
MsgBox "Lütfen Ne Aradağınızı Belirtiniz !!!", vbCritical + vbOKOnly, "UYARI111"
txtAranan.SetFocus
Exit Sub
End If
Dim x As Integer
Dim sor As Byte
For x = 2 To Sheets.Count
sheest(x).Select
If UCase(LCase(txtAranan)) Like "*" & sheest(x).Name & "*" Then
sor = MsgBox("Aradağınız Kayıt Bu mu?", vbQuestion + vbYesNo, "ARAMA")
If sor = 6 Then
sheest(x).Select
Unload Me
Exit Sub
End If
End If


Next
sheest("Anasayfa").Select
Unload Me
MsgBox "Aradağınız Kayıt Bulunamadı....", vbInformation + vbOKOnly, "KAYIT YOK"



Bu yukarıdaki dizimde hata veren yer: Private Sub CommandButton1_Click()

neden böyle bir hata veriyor acaba

Kodların en altına End Sub komutunu ekleyin.