LiveBrain

Você pode perfeitamente colocar um for dentro de outro for a sintaxe ficaria mais ou menos assim For J=1 to Valor1 For i=1 to Valor2 'Aqui é sua função NextNext Abraços "Fraca é a pessoa que não conhece a força que possui nos amigos"

opa Tiago, Tome como exemplo o código abaixo. Acho que ele atende perfeitamente suas necessidades. Dim CaminhoArquivo As StringDim Arquivo As IntegerDim intLinha As IntegerCaminhoArquivo = "C:\Teste.txt" 'Esse é o caminho do meu TXTArquivo = FreeFileintLinha = 1 'Essa é a linha onde irá começar a Exportar os Dados Open CaminhoArquivo For Append As #Arquivo 'Abro o arquivo informado Do While Len(Range("A" & intLinha).Value) > 0 'O LOOP ira exportar linha a linha até encontrar uma célula Vazia Print #Arquivo, Range("A" & intLinha).Value & ";" & Range("B" & intLinha).Value intLinha = intLinha + 1 'adiciono +1 para ir pra proxima linha Loop Close Arquivo 'Fecho o arquivo ( salva automaticamente ) Abraços Live Brain Tutoriais "Fraca é a pessoa que não conhece a força que possui nos amigos"