Faça um Loop nas colunas, lembre-se de ajustar a qde de colunas na rotina abaixo :

Sub Loop_Colunas()
    Dim i As Double

    'Qde de colunas a percorrer
    For i = 1 To 6
        
        If Cells(1, i).Value = "cód. Clie" Then
            'coloque aqui sua rotina
            MsgBox "coloque aqui sua rotina"
            
            'Sai do loop
            Exit For
        End If
    
    Next i

End Sub

[]s

Bom Dia, Mauro !
Obrigado pela ajuda.

Fiz da forma que você orientou, mas não inicia o loop, só aparece a mensagem.
Será que faltou não faltou nada?

Obrigado.

Arthur, se aparece a mensagem é porque encontrou a coluna com o nome indicado "cód. Clie", e ao encontrar sai do Loop.

Mas para dar uma resposta mais precisa, o ideal seria postar como que fez os ajustes, lembrando que no exemplo estamos verificando somente as 6 primeiras colunas supondo que o cabeçalho se encontra na linha 1 :
'Qde de colunas a percorrer
For i = 1 To 6

If Cells(1, i).Value - o numero 1 indica a linha e o "i" a Variável para as colunas.

[]s

Enviado: 11 Nov 2017, 04:49
De: arthurab
Para: Mauro Coutinho

Mauro,
Desculpa te amolar com esse assunto ainda, mas surgiu mais um problema. Consegui rodar essa macro que vc passou, ela encontra a coluna que preciso, mas na hora de aplicar o autofilter ele pede no campo field o número da coluna. Como eu poderia indicar o filtro para essa coluna que o loop achou?

Arthur, só defina o tópico como RESOLVIDO se realmente tiver chego a solução esperada.
Quanto a msg em PVT, para saber o endereço e numero da coluna utilize conforme abaixo :

Sub Loop_Colunas()
    Dim i As Double
    
    'Qde de colunas a percorrer
    For i = 1 To 6
        
        If Cells(1, i).Value = "cód. Clie" Then
            'coloque aqui sua rotina
            MsgBox "coloque aqui sua rotina"
            
            'Endereço da celula
            MsgBox "O cód. Clie se encontra na celula " & Cells(1, i).Address(0, 0)
            
            'Numero da Coluna
            MsgBox "O cód. Clie se encontra na coluna nº " & Cells(1, i).Column
            
            'Sai do loop
            Exit For
        End If
    
    Next i

End Sub

[]s