Olá, Cyberlacs

Na verdade vc passou corretamente a planilha como parâmetro. O erro principal entretanto, é que vc definiu CalculaHorasPorDia como uma Function, mas da forma como vc a está usando, ela está desempenhando papel de uma Sub.

Lembre-se que uma Sub "faz alguma coisa" enquanto que uma Function "retorna algum valor/objeto". Então, simplificando, uma Function se usa do lado direito de uma igualdade, por exemplo, digamos X= CalculaHorasPorDia(objPlanilha), caso a Function retornasse algum valor, mas não é o que acontece.

Outro problema é o uso do contador i. Como vc não passou ele também como parâmetro, seu valor não fica disponível para sua rotina CalculaHorasPorDia. Então ou vc define i como uma variável pública na primeira procedure ou como variável global em nível de módulo ou, melhor ainda, passa ela também como parâmetro para a segunda rotina. Algo como:
Sub CalculaHorasPorDia(nomePlanilha As Worksheet, i as Integer). . . End Sub

e na hora de chamar:

CalculaHorasPorDia objPlanilha, i

Aconselho a sempre forçar o dimensionamento explícito de todas as variáveis para evitar erros assim. Para isso, na área de declarações do módulo, bem no início insira Option Explicit. É até bom deixar isso automático para cada novo módulo, indo em "Ferramentas">"Opções"> na guia "Editor" selecionar "Requerer declaração de variável".

Obs.: não analisei a funcionalidade do seu código, apenas o que poderia estar dando erro, ok?

Segue exemplo na sua planilha.

O velho amigo DJunqueira esta aqui ajudando, grande cara, parabéns pela ajuda meu amigo.
Nossa esta planilha que vc me passou, conhecimento profundo, kkkkkkkk.

Mas como estou com duvida de passagem de parâmetros, vou insistir na duvida kkkkkkkkkkkk

Amigo EdsonBR muito boa sua explicação, nossa estou muito contente de participar dos foruns de Excel, são todos ótimos profissionais que ajudam pra caramba.

EdsonBR ainda esta dando erro quando chamo a a Função Sub veja no arquivo meu em anexo.

Será que você pode verificar o erro no arquivo em anexo

Prefiro utilizar conforme abaixo:

Private Sub CommandButton1_Click()
    Dim objPlanilha As Worksheet
    Dim i As Integer
    
    i = 1
    
    For Each objPlanilha In ThisWorkbook.Worksheets

        If Not InStr(objPlanilha.Name, "Relatório") > 0 Then
            CalculaHorasPorDia objPlanilha.Name, i
            i = i + 1
        End If
        
    Next
End Sub

Sub CalculaHorasPorDia(nomePlanilha As String, ByVal i As Integer)
Dim wr As Worksheet
Set wr = Sheets(nomePlanilha)
    MsgBox "voçe passou " & wr.Name & " numero " & i
    'Aqui me viro na codificação kkkkkkkk :)
    
End Sub

Resolvido o problema, o bom agora é que vou continuando na caminha, sei que posso deletar Abas de Funcionários, Criar Abas, pois sabemos tem momentos que temos 1 funcionários e tem vezes que temos 1000 ai com esta maneira a planilha esta um pouco mais dinâmica.

Se eu pudesse dar um obrigado a todos eu daria, pois todos aqui participaram para a solução deste problema

Agradeço a todos

Ciberlacs

Se eu pudesse dar um obrigado a todos eu daria, pois todos aqui participaram para a solução deste problema

Mas é claro que pode, acesse o link para entender como funciona:

viewtopic.php?f=7&t=16757

[]s