Este fórum está sendo desativado

[walber]

Quero criar uma macro para poder salvar a planilha 8 de 10 com o nome da data atual.
Se não for possível que gere um arquivo de texto com o nome seja a data atual
A planilha a ser salva tem as seguintes informações:
Código
Descrição
Quantidade
Valor

Desde já agradeço

[gfranco]

Boa noite.
Veja se ajuda.
At
Gfranco

Código: Selecionar todos

Sub macro_salvar()
Dim dia As Long, mes As Long, ano As Long
Dim nome As String, conta As Long
conta = ThisWorkbook.Sheets.Count
If conta > 7 Then

dia = Day(Date)
mes = Month(Date)
ano = Year(Date)

nome = dia & "-" & mes & "-" & ano

ThisWorkbook.Worksheets(8).Name = nome

Else
MsgBox "Esse workbook não possui uma sheet nº 8", vbOKOnly

End If

End Sub