Boa noite!!

Talvez lhe ajuda ater uma idea...

Sub AleVBA_10333()
    Dim Str As String
    Dim StrSrch As String
     
    Str = UCase(InputBox("Digite sua palavra"))
    StrSrch = "*" & Str & "*"
     
    For Each c In ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp))
        If UCase(c.Value) Like StrSrch Then
            MsgBox "Encontrado: " & c.Offset(0, 0).Value & Chr(10) & Chr(10) _
            & "No endereço: " & c.Offset(0, 0).Address, vbInformation
        End If
    Next c
     
End Sub

Att

Boa noite digo203

Dá para fazer com filtro avançado usando o asterisco (*) como coringa no critério, junto com o Dev.
Baixe a planilha e veja como fazer:

http://www.sendspace.com/file/y9j8w4

Dê retorno.

Se a resposta foi útil, faça a gentileza de clicar na mãozinha que fica do lado da ferramenta Citar.

At.te

Outra abordagem - com SUBSTITUIR().

Depois me diga.

Abs,

Boa noite!!

Talvez lhe ajuda ater uma idea...

Sub AleVBA_10333()
    Dim Str As String
    Dim StrSrch As String
     
    Str = UCase(InputBox("Digite sua palavra"))
    StrSrch = "*" & Str & "*"
     
    For Each c In ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp))
        If UCase(c.Value) Like StrSrch Then
            MsgBox "Encontrado: " & c.Offset(0, 0).Value & Chr(10) & Chr(10) _
            & "No endereço: " & c.Offset(0, 0).Address, vbInformation
        End If
    Next c
     
End Sub

Att

Boa noite Alexandrevba.

Obrigado pela ajuda.
Cara, eu ate tentei transcrever seu codigo a minha planilha, mas nao consegui. Sou meio leigo nisso e nao deu certo, deu varios erros.
O amigo Patropi abaixo me deu uma sugestao de um filtro avançado que deu certo.
Agradeço mais uma vez a sua ajuda.

Abraços,

Boa noite digo203

Dá para fazer com filtro avançado usando o asterisco (*) como coringa no critério, junto com o Dev.
Baixe a planilha e veja como fazer:

http://www.sendspace.com/file/y9j8w4

Dê retorno.

Se a resposta foi útil, faça a gentileza de clicar na mãozinha que fica do lado da ferramenta Citar.

At.te

Boa noite Patropi.

Gostaria de agradecer a sua ajuda.
Deu certinho. Era o que eu precisava.
Agora conseguirei filtrar minhas 12.000 linhas .

Abraços amigo.

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.