Private Sub UserForm_Initialize()
estado1.AddItem "MG"
estado1.AddItem "SP"
estado1.AddItem "RJ"
estado1.AddItem "BA"
PESQUISA = Worksheets("plan1").UsedRange.Rows.Count
With PEQUISA > 1 then
LOCALIZARNOME1.ROwsSOURCE = "A2:A" & PESQUISA
and With
End Sub
nao estou conseguindo identificar o erro pode me ajudar