Boa tarde Anacleto,
Utiliza esse código em "EstaPasta_de_trabalho"
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim ValorData As String
MsgBox "Nova aba criada."
ValorData = InputBox("Confirme a data da reunião.", , Date)
ThisWorkbook.ActiveSheet.Range("A1").Value = Format(ValorData, "mm/dd/yyyy")
End Sub
Qualquer coisa da o grito.
Abraço
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/10/2015 10:36 am