gerar csv via botao

[Mateus Bodanese]

bom dia tenho um botao na planilha que gera um CSV, mas esta dando erro do bloco with, alguem poderia me ajudar?

segue codigo abaixo

 

Sub Botão4_Clique()
Dim novoBook As Workbook
Dim teste As String
    teste = Range("R13").Value
    novoBook = Dir("C:\Users\alcir.scarmin\Desktop\teste csv\")
    novoBook.SaveAs ("C:\Users\alcir.scarmin\Desktop\Programa Fabrica\" & teste & ".csv")
End Sub