Visual Basic VBA - Erro na função WorkDay

[vitorhugor]

E ai, galera
Estou com um problema que não consigo entender. Meu código fica retornando erro 1004 na linha da função workday. Simplificando, ele está assim:

feriados = Sheets("Referências").range(cells(4,6),cells(900,6))
d0 = data qualquer

d0=WorksheetFunction.Workday(d0,-1,feriados)

 

Testei sem o argumento Feriados e a função funcionou. Também funcionou colocando diretamente Sheets("Referências").range(cells(4,6),cells(900,6)) ao invés de feriados. Como eu uso essa função umas 15 vezes, ficaria ruim colocar isso o tempo todo. Alguém sabe porque dá errado?

 

Obrigado!

[Basole]

Somente com essas informações fica difcil dar um parecer exato. 

Mas talvez pela forma que esteja definindo a variavel d0

Ao definir, voce deve colocar a data entre aspas ou entre # (hastags)

 

Tente algo assim:

d0 = "02/01/2018"
'Ou
'd0 = #2/1/2018#
d0 = VBA.Format(WorksheetFunction.WorkDay(d0, -1, feriados), "dd/mm/yyyy")

* Vale lembrar que neste caso, o formato da data é americano, ou seja 1º de fevereiro de 2018