Error 424

Public edirt As Boolean
Public sartramo As Variant
Private Sub btr_Change()
BUSQUED = btr
Select Case BUSQUED
Case "PORT-GUAN"
sartramo = 1
encontrar.Show
BUSQUED.Text = ""
Case "PORT-SAN"
sartramo = 2
encontrar.Show
BUSQUED.Text = ""
Case "PORT- BTO"
sartramo = 3
encontrar.Show
BUSQUED.Text = ""
End Select
End Sub
Private Sub CI_Change()
llenar = CI
Select Case llenar
Case "Zona de Riesgo"
llenar = "1"
Case "Nueva Tanquilla"
llenar = "2"
Case "Puentes"
llenar = "3"
End Select
If llenar = 1 Then
ZonadeRiesg.Show
ElseIf llenar = 2 Then
nuevatanquill.Show
ElseIf llenar = 3 Then
puente.Show
End If
End Sub
Private Sub UserForm_Initialize()
CI.AddItem ("Zona de Riesgo")
CI.AddItem ("Nueva Tanquilla")
CI.AddItem ("Puentes")
btr.AddItem ("PORT-GUAN")
btr.AddItem ("PORT-SAN")
btr.AddItem ("PORT- BTO")
edirt = True
End Sub
Buenas tardes saludos tengo este código pero al ejecutarlo me da un error 424 y marca en amarillo la siguiente linea del código encontrar. Show.. Sera que me pueden ayudar