https://www.youtube.com/results?search_query=vba+pesquisa+listbox

Pode ser que assim melhora: Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Dim INTERVALO As Range Set INTE...

Este vídeo explica um código parecido: https://www.youtube.com/watch?v=6yzzeWKbHAQ&t=806s

Veja se assim melhora: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim INTERVALO As Range Set INTERVALO = ThisWorkbook....

Funcionou no arquivo anexo. Se não funcionar na sua planilha, crie outra, pois ela está estranha.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim INTERVALO As Range Set INTERVALO = ThisWorkbook.Sheets...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim INTERVALO As Range Set INTERVALO = ThisWorkbook.Sheets("Plan1"...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Range(Target.Address).Value = "X" Then Range(...

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range(Target.Address).Value = "X" Then Range(Target.Address)&...

Perfeito, Mauro. Muito obrigado. Agora eu quero outro código que faça essa permutação com letras da seguinte forma: Pode ser mais de uma letra agrupa...