Boa tarde!!

Uma forma seria

Sub AleVBA_13623()
Dim ws As Worksheet, newWb As Workbook

Application.ScreenUpdating = False
For Each ws In Sheets(Array("Plan1", "Plan2", "Plan3", "Plan4"))
   ws.Copy
   Set newWb = ActiveWorkbook
   With newWb
      .SaveAs ws.Name, xlCSV
      .Close (False)
   End With
Next ws
Application.ScreenUpdating = True

End Sub

Att

alexandrevba.

Valeu pela resposta, acho que até deu certo, renomeei as plan1, plan2 para as que uso e deu certo, mas onde estão salvas.....rs

Abraço

Boa tarde!!

Use a pesquisa do Windows NomeDoArquivo.csv
Ou.........
Veja em Documentos

Att

Boa tarde!!

Use a pesquisa do Windows NomeDoArquivo.csv
Ou.........
Veja em Documentos

Att

Esta na pasta Documentos.

Muito Obrigado, ajudou muiiiittoooooooo...

Abraço

Boa tarde!!

Eu fico feliz em ajuda, se a dica foi útil, por favor, click na mãozinha!!

Att

Alexandre.

Deu um problema aqui.....
No momento de salvar em .csv, ao invés de com Ponto e Virgula " ; " salvou em virgula " , ".
Sabe como mudar isso?

Abraço.