Boa tarde, pessoal. Preciso de ajuda mais uma vez.
Na macro abaixo, eu exporto uma planilha e salvo em *.csv. Meu problema é que o csv salva com o separador de lista ",".
Tem algum comando para mudar esse separador para ";" apenas no momento que executar a macro???

Sub CopiaPlanilhaAtiva()
    Dim lPlanilha As String
    Dim lNome As String
    Dim lNovaPlanilha As String
'    Pasta = "P:SERFINConciliações5722IMPORTAÇÃO ARRECADACAO" '(Pasta financeiro)
    Pasta = "D:FINANCEIROARRECADAÇÃO" '(Pasta para testes)
    Arquivo = "5722_REC_"
    DataArquivo = Range("R1") & ".csv"
    
    lPlanilha = ActiveWorkbook.Name
    lNome = ActiveSheet.Name
   
    Sheets(lNome).Select
    Sheets(lNome).Copy

    lNovaPlanilha = ActiveWorkbook.Name

    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs (Pasta & Arquivo & DataArquivo), _
        FileFormat:=xlCSV, CreateBackup:=False
    Range("Q1").Select
    Selection.Delete
    Selection.Delete
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWorkbook.Close
    Application.DisplayAlerts = True
    
End Sub

Agradeço demais se alguém puder ajudar.