Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), dispara um alarme após uns três minutos da execução do macro, para entendermos melhor os disparos usei a propriedade offset e no contador (Loop) direcionei para células na coluna P, a contagem dos beeps de alerta.
Esse artigo tem finalidade didática, atendo a um pedido de um amigo do site, que pediu uma macro para essa finalidade.
No final da execução do código pisca um shapes(autoforma) 10 vezes...

'Exemplo de planilha faz parte do Módulo COMO FAZER - Programação Microsoft Excel VBA_IV
Sub Alarme()
[I8,K8,sbx].ClearContents
Saber1.Shapes("sb").Visible = False
Saber1.Shapes("sby").Visible = False
Beep
vInicio = Now() + TimeSerial(0, 0, 3.9)
Application.Wait vInicio
[P8].Select
For i = 1 To 10
vInicio = Now() + TimeSerial(0, 0, 0.8)
Application.Wait vInicio

Beep
[I8].Value = i
[I8].Offset(0, 2).Value = "[" & i & " ]º. Alarme"
ActiveCell.Value = "[" & i & " ]º. Alarme"
ActiveCell.Offset(0, -1).Value = "u" 'insere a seta, fonte wingdings
ActiveCell.Offset(1, 0).Select

Next i
Saber1.Shapes("sb").Visible = True
Saber1.Shapes("sby").Visible = True
Piscar_Shapes "sb", 10 'pisca shapes (descançar) 10 vezes.
End Sub

Sub Piscar_Shapes(s, nb)
n = 0
Do While n < nb
ActiveSheet.Shapes(s).Visible = False
vFim = Timer + 0.2
Do While Timer < vFim: DoEvents: Loop
ActiveSheet.Shapes(s).Visible = True
vFim = Timer + 0.4
Do While Timer < vFim: DoEvents: Loop
n = n + 1
Loop
End Sub

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application),sozinho, com baixo custo, praticando com os produtos didáticos SaberExcel