Olá colega fefo32br Bom dia!
Você precisa selecionar essas células para alcançar qual objetivo?

Olá!

As vezes para apagar, as vezes para editar, as vezes só para saber onde é a primeira ocorrência (ou a última).. cada caso, um caso rsrs

a parte de selecionar é que realmente não sei..

o após (selection.várias ações), eu consigo me virar aqui.

Obrigado!

fefo32br,

Boa tarde!

Veja se é assim.

O colega Wagner já respondeu mas vou postar mesmo assim pois deu um pouco de trabalho.

Option Compare Text
Sub selecionar()
On Error Resume Next
Dim mystring As String
Dim cont As Long
termo = Application.InputBox("Digite o termo a procurar:", "Procurar", Type:=2)
For Each celula In Plan1.UsedRange
If celula.Value = termo Then
mystring = mystring & celula.Address(0, 0) & ","
End If
Next
mystring = Left(mystring, Len(mystring) - 1)
Range(mystring).Select
End Sub

Wagner e André,

MUITO obrigado pela prestatividade e ajuda.

A solução do André se aplica melhor ao meu caso por ser mais "flex", mas agradeço aos dois da mesma forma.

Abs!!!