Saberexcel - o site das macros

Esta macro do Aplicativo Microsoft Excel VBA, pergunta se voce deseja ou não inserir uma planilha
personalizada com o nome formatado com data e hora atual

Sub Adicionar_planilha_com_dia_hora()

Dim Resposta As VbMsgBoxResult
Dim sht As Worksheet
Resposta = MsgBox("Deseja inserir nova planilha com o nome da data e hora atual?" _
, vbQuestion + vbYesNoCancel)
If Resposta = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-dd-mmm-yyyy_hhmmss")
ElseIf Resposta = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Planilha inserida com sucessso!! [ " & ActiveSheet.Name & "]", vbInformation, "http://www.saberexcel.com"
End Sub

Aprenda Aplicativo Microsoft Excel VBA ---( SaberExcel VBA ) Aprenda sozinho, em casa, com excelente material de estudos (Saberexcel)



   Baixe o exemplo de planilha com a macro acima
vba worksheet adiciona nova planilha nome formato dia horas (Empty 2010-11-30 17:04:41)