Polly,
alterei o código do Anderson, troque o código por este daqui:
Sub SalvarPlan()
Dim sht As Worksheet
Dim strPasta As String
Dim strNome As String
With ThisWorkbook
Set sht = .Worksheets("Controle de Notas")
strPasta = .Path
End With
With sht
strNome = .Name & " " & VBA.UCase(VBA.Format(VBA.Month(.Range("D7").Value), "MMMM"))
sht.Copy
End With
ActiveWorkbook.SaveAs Filename:=strPasta & "" & strNome & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Set sht = Nothing
End Sub
E saiba, este cõdigo não verifica se o arquivo já existe, ou seja, se for rodar uma segunda vez, vai dar pau. Vc precisará sempre apagar o arquivo ou move-lo, antes de rodar o botão de novo.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/07/2012 7:33 am