Com base no trecho postado, eu faria assim para percorrer o intervalo A1:A100 que conteria os valores de Conta e em B1:B100 ou valores de CC
For Each Célula In [A1:A100]
Conta = Célula
CC = Célula.Offset(0, 1)
"- Base Completa`" & Chr(13) & "" & Chr(10) & _
"WHERE (`200 - Base Completa`.Cod_Conta=" & Conta & ") AND _
(`200 - Base Completa`.Ccusto=" & CC & ")")
.Refresh BackgroundQuery:=False
Next Célula
[ ]s
Adilson Soledade - MOS