Saberexcel - site das macros
Essas declarações e funções do Aplicativo Microsoft Excel VBA, retorna uma mensagem personalizada do Windows Explorer e algumas informações do sistema conforme mostra a mensagem abaixo.


Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" _
(ByVal hwnd As Long, ByVal szApp As String, ByVal szOtherStuff As _
String, ByVal hIcon As Long) As Long
Declare Function GetActiveWindow Lib "user32" () As Long


Sub Sobre_Saberexcel_BR()
Dim hwnd As Integer
On Error Resume Next
hwnd = GetActiveWindow()
ShellAbout hwnd, Nm, vbCrLf + Chr(169) + "" & "SaberexcelBR - Excel VBA Estudos®" _
+ vbCrLf, 1
On Error GoTo 0
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel

Saberexcel - o Site das Macros
Essa macro do Aplicativo Microsoft Excel VBA, adiciona uma nova planilha no livro, e emite uma determinada mensagem, são sete exemplos de mensagem que o vb emite ao inserir uma nova folha de planilha no livro ativo.

Sub Adiciona_planilha()
Worksheets.Add
MsgBox "Macros finalizada.", vbInformation, "http://www.saberexcel.com"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Exemplo simples de mensagem com o ícone de infomações (Information icon)
Sub Adiciona_planilha_2()
Worksheets.Add
MsgBox "Uma nova planilha foi adicionada ao livro." _
, vbInformation + vbOKOnly, "Macro finalizada!!"
End Sub

Adiciona uma planilha e mostra o nome da planilha adicionada
Sub Adiciona_planilha_3()
Dim sht As Worksheet
Set sht = Worksheets.Add
MsgBox "A nova planilha foi adicionada." & vbCrLf & _
"O o nome da nova planilha é : " & sht.Name _
, vbInformation + vbOKOnly, "Macro finalizada!"
End Sub

Adiciona uma nova planiha e inica que a planilha foi adicionada
vem com o vb yes/no, se não querer a macro sai da execução
Sub Adiciona_planilha_4()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then Exit Sub
Worksheets.Add
MsgBox "A nova planilha foi adicionada.", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro usa a mensagem Yes/No, e pergunta se quer inserir uma planilha e se a resposta
foi não informa que não foi adicionada e se sim e informa que [sim ]
Sub Adiciona_planilha_5()
Dim Response As VbMsgBoxResult
Response = MsgBox("Deseja inserir a nova planilha?", vbQuestion + vbYesNo)
If Response = vbNo Then
MsgBox "Não foi adicionada a worksheet", vbInformation
Else
Worksheets.Add
MsgBox "Uma nova planilha foi inserida no workbook.", vbInformation, "http://www.saberexcel.com"
End If
End Sub

Esta macro usa a mensagem Yes/No/Cancel, e pergunta se quer inserir uma
nova planilha com formata de data e horario, tem a opção de sim, nao ou cancela
Sub Adiciona_planilha_6()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Deseja inserir uma nova planilha ao workbook com formato de dia e hora?" _
, vbQuestion + vbYesNoCancel)
If Response = vbYes Then
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhnnss")
ElseIf Response = vbNo Then
Worksheets.Add
Else
Exit Sub
End If
MsgBox "Macro finalizada!.........", vbInformation, "http://www.saberexcel.com"
End Sub


Esta macro usa a instrução Case e analisa a msg com yes/no/cancel (caixa de mensagem)
Yes/No/Cancel message box.
Sub Adiciona_planilha_7()
Dim Response As VbMsgBoxResult
Dim sht As Worksheet
Response = MsgBox("Você deseja inserir a planilha com formato dia e hora?" _
, vbQuestion + vbYesNoCancel)
Select Case Response
Case vbYes
Set sht = Worksheets.Add
sht.Name = Format(Now, "ddd-mmm-yyyy_hhmmss")
Case vbNo
Worksheets.Add
Case vbCancel
Exit Sub
End Select
MsgBox "Macro finalizada.....", vbInformation, "http://www.saberexcel.com"
End Sub

Esta macro deleta todas as planilhas exceto a escolhida para não ser deletada
Sub Deleta_Planilhas_Exceto_Desejada()
On Error Resume Next
For Each Nm In Worksheets
Application.DisplayAlerts = False 'impede de emitir a mensagem se deseja excluir
If Nm.Name <> "PRINCIPAL" Then
Nm.Delete
End If
Next
End Sub

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