Dante Amor respondió:
Te anexo la macro actualizada Private Sub TextBox1_Change() 'activamos la hoja base Sheets("datos"). Activate 'nos posicionamos en la celda a1 Sheets("datos").Range("a1").Select 'limpiamos el listbox ListBox1.RowSource = Empty 'limpiamos la hoja3...