priscilalc

Consegui pessoal, para quem se interessar segue o código: Sub GeraExcel_Clique() On Error GoTo Erro Dim Arquivo As Workbook Dim Guia As String Dim Nome As String Guia = "Plan1" Nome = Planilha1.Range("M2").Text If Nome = "" Then MsgBox "Precisa informar nome para o arquivo!", vbCritical, "SALVAR" Exit Sub End If Set Arquivo = Application.Workbooks.Add Arquivo.Sheets(1).Name = "NOME GUIA" ThisWorkbook.Sheets(Guia).Copy Before:=Arquivo.Sheets(1) Application.DisplayAlerts = False 'Salva na pasta onde está localizado o arquivo em edição, onde a planilha principal está salva Arquivo.SaveAs ThisWorkbook.Path & "\" & Nome & ".xlsx" 'Salva em determinada pasta 'Arquivo.SaveAs "C:\Teste" & Nome & ".xlsx" Arquivo.Close Exit Sub Erro: MsgBox "Erro:!", vbCritical, "ERRO" End Sub

Alguém conhece um código para salvar uma aba da planilha em uma determinada pasta e com o nome contido em uma célula? Grata pela atenção