Boa tarde!!

Para que o pessoal possa ajuda-lo, seria melhor postar seu arquivo modelo compactado

Att

Ruk, veja se o Tópico abaixo tem alguma relação com o seu problema.

Limpar nomes de Céluas/Intervalos [Resolvido]
viewtopic.php?f=10&t=6419

[]s

Sub ConsultaSQL_MudaParametros()
' Muda os parametros mes e ano de uma consulta sql. Consta de inputbox para entrada de dados do usuario e msgbox de aviso para maior clareza
Dim InputMes As Integer
Dim InputAno As Integer
Dim ConectionIndex As Integer
Dim ConectionName As String
    Do
        InputMes = Application.InputBox(prompt:="Inserir o mês que desejas acessar númericamente (1-12).", Title:="Parametros da Pesquisa", Type:=1)
        If InputMes = False Then Exit Sub
        If InputMes >= 1 And InputMes <= 12 Then Exit Do
        MsgBox prompt:="Mês inválido", Title:="Aviso:"
    Loop
    InputAno = Application.InputBox(prompt:="Inserir o mês que desejas acessar númericamente (1-12).", Title:="Parametros da Pesquisa", Type:=1)
    If InputAno = False Then Exit Sub
    Application.ScreenUpdating = False
    If InputMes >= 1 And InputMes <= 12 Then '(A)
        Do Until ConectionIndex = ThisWorkbook.Connections.Count
            If ConectionIndex = 0 Then '(B)
                ConectionName = "ConsultaSQL"
            Else
                ConectionName = "ConsultaSQL" & ConectionIndex
            End If '(B)
            ThisWorkbook.Connections(ConectionName).ODBCConnection.CommandText = Array( “A string a ser inserida no ‘Texto de Comando’” –InputMes e InputAno" são usados para compor esta string)

            ConectionIndex = ConectionIndex + 1
            ThisWorkbook.Connections(ConectionName).Refresh
        Loop
    Application.ScreenUpdating = True
    MsgBox prompt:="Você esta acessando a consulta ao Banco de Dados referente a " & MonthName(InputMes) & " de " & InputAno & "." & Chr(13) & "Esta mudança se aplica a todas as planilhas neste documento.”, Title:="Aviso"
    End If '(A)
End Sub

Este é o código completo. :p
O que é escrito no texto de comando eu preferi substituir por uma descrição - era muito extenso e confuso, não adicionava nada para a solução do problema. Não temam pois esta parte esta correta e testada.

O problema é que quando eu rodo esta macro para atualizar as conexões ConsultaSQL e as geradas a partir dela quando crio tabelas dinâmicas a partir da conexão existente (ConsultaSQL1, ConsultaSQL2, ..., ConsultaSQL(N-1), ConsultaSQL(N)) uma conexão chamada "Conexão" simplesmente surge dentre as conexões ativas da planilha. Além de tudo isto a tabela dinâmica é associada a "Conexão" e não mais a "ConsultaSQL(X) da qual foi gerada, fazendo com que eu não mais consiga atualizar os parâmetros da consulta através da minha macro.

Nota: "Conexão" é gerada quando tento rodar a macro e já existe uma tabela dinâmica criada que tenha sido manipulada de qualquer forma (até a simples seleção de campos a serem exibidos).
Nota2: "Conexão" encontra-se entre aspas para destaque, o nome dado a esta conexão problemática que o excel cria sozinho não possui aspas.
Nota3: a palavra 'conexão' não esta escrita em nenhum lugar da minha macro. Esta é uma evidencia de que sua criação não pode nem ao menos ser acidental. O excel é responsável.