SaberExcel - Aprenda Excel VBA, Site sobre macros, funções, fórmulas e planilhas do Excel VBA planilhas prontas e apostilas para download

Pessoal,
Estou com um problema. Preciso realizar uma validação de escala de funcionários, onde nessa validação possui os critérios.
um domingo obrigatório no mês e contar quantos dias trabalhado entre uma folga e outra. cada funcionario possui 6 folgas no mês. Preciso dessa validaçao para gerar meu relatorio.

Option Explicit
'//==================='
Prezado Wagner, veja bem, não sei como é o seu projeto, como é um assunto de conhecimento Pleno em Programação, estou lhe passando um a rotina que faz uma varredura no Workbook Ativo, e lista os macros existentes, com isso você poderá fazer o For em seus Livros Abertos,
e rodar o macro, assim que encontrar o Macro (X) que voce procura, neste ponto voce manda fechar o Workbook.
Fique com Deus,
Expedito Marcondes.
"//=============ABAIXO OS PROCEDIMENTOS /======'
'macro habilita a referencia:
'Microsoft Visual Basic for Applications Extensibility 5.3
esse macro insere a referencia Microsoft Visual Basic for Applications
'Extensibility 5.3 para que o macro funcione

Sub Listar_macros()
On Error Resume Next '< error = referencia endereço set
'para adicionar a referencia (biblioteca)
'set referencia Microsoft Visual Basic for Applications
'Extensibility 5.3
ThisWorkbook.VB Project.Referen ces.AddFromGuid _
"{0002E157-0000 -0000-C000-0000 00000046}", 5, 3
'agora chamamos a rotina para listar os macros
Call ListandoNomesMacros
End Sub
'//==================='
Private Sub ListandoNomesMa cros()
Dim N&, Contador&, vListaMacros(20 0), Lista$
Dim Component As VBComponent
For Each Component In ActiveWorkbook. _
VBProject.VBCom ponents
With Component.CodeM odule
Contador = .CountOfDeclara tionLines + 1
Do Until Contador >= .CountOfLines
vListaMacros(N) = .ProcOfLine(Con tador, _
vbext_pk_Proc)
Contador = Contador + .ProcCountLines _
(.ProcOfLine(Con tador, vbext_pk_Proc), _
vbext_pk_Proc)
Lista = Lista & vbCr & vListaMacros(N)
If Contador < .CountOfLines Then N = N + 1
Loop
End With
N = N + 1
Next
MsgBox "LISTA DOS MACROS NO LIVRO ATIVO " & vbCrLf & Lista, , "Listando Macros - Escola SaberExcel"
End Sub
'//======='
'esses macros abaixo for am criados com a finalidade de preencher a lista de macros solicitado pelos procedimentos acima.
'//======='
Private Sub sbx_nao_existe()

End Sub

Private Sub sbx_nao_faz_nada()

End Sub

Private Sub sbx_procura_por_nada()

End Sub