Aline utilizando VBA dá pra fazer belezinha Veja: -Abra a planilha e vá em Ferramentas/macros/editor do visual basic -Clique no menu Inserir / módulo e cole esse Código Sub lis() Dim l, dia As Integer l = 2 dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While Range("a" & l).Value <> "" dtini = Range("B" & l).Value dtfim = Range("C" & l).Value While dtini <= dtfim dia = Weekday(dtini, vbMonday) If dia = 6 Or dia = 7 Then qtd = qtd + 0 ElseIf dia = 5 Then qtd = qtd + 8 Else qtd = qtd + 9 End If dtini = dtini + 1 Wend Range("E" & l).Value = qtd l = l + 1 qtd = 0 Wend End Sub -Agora feche o editor do Visual Basic -Vá em exibir /barras de ferramentas / formulario -Procure na barra de ferramentas o "Botão", clique nele abra-o na planilha -Aparecerá uma janela pedindo para você atribuir macro, clique em lis / OK Pronto, só que para funcionar certinho o nome deve estar na celula A1, a dataini na celula B1... Eu testei e funcionou, tente aí, qualquer coisa retorne Você poderia explicar melhor o seu código? Estou aprendendo vba e me interessei por esse programa. grato