Veja se é isto.

TextBox Auto Completar

[]s

Aproveitando essa ideia, que achei muito boa...
Teria como além de mostrar o nome em função auto-completar, selecioná-lo na linha em que se encontra?

Veja se é isto.

TextBox Auto Completar

[]s

Aproveitando essa ideia, que achei muito boa...
Teria como além de mostrar o nome em função auto-completar, selecioná-lo na linha em que se encontra?

Faça as seguintes alterações e veja se é isto o que pretende :

Na "Private Function GetFirstCloserWord(ByVal Word As String) As String"
Recorte a linha "Dim c As Range" e cole no escopo do modulo abaixo de Dim blnStop As Boolean

Depois, no Evento do TextBox
"Private Sub txtInput_Change()" adicione a instrução abaixo da linha :
Me.txtInput.SelLength = 999999
'Seleciona Celula
c.Select

Salve e teste.

[]s