listbox falla cuando

Hola a todos, este codigo lo perfecciono Hector. Con el uso diario descubri que cuando encuentra un solo registro falla el ListBox en la linea: ListBox1.List = .CurrentRegion.Value error 381 No se puede configurar la propiedad list. Indice ...