Bom dia galera, estou com um problema e gostaria da ajuda de vcs...

Tenho em uma macro, uma função que pega a data de uma celula X, conta 17 dias úteis e insere a nova data em uma celula Y.

Isso funcionava perfeitamente na versão 2003 do Excel, mas quando fui tentar rodar no 2007 não funcionou... =/

segue o trecho do código:

If Cells(linha, 22) <> "" Then

'Se não tem previsão de entrega
If Cells(linha, 23) = "" Then
On Error Resume Next
'Soma 17 dias úteis a data de envio para proposta técnica
'Cells(linha, 23) = WorksheetFunction.Workday(Cells(linha, 22), 17)
Cells(linha, 23) = WORKDAY(Cells(linha, 22), 17)

'Caso contrário pega a data prevista
Else
Cells(linha, 23) = Cells(linha, 23)

End If

Else
Cells(linha, 23) = "N/D"

End If

Reparem que eu tentei de oiutra forma como está comentado, mas não funcionou também...

Agradeço pela ajuda...
Cya