Rick Messora de Souza

Boa tarde Senhores, Preciso implementar uma função em que eu digito a data inicial e recebo em outra textbox uma data com 5 dias úteis descontando finais de semana e feriados. Segue: Private Sub txtData_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Dim Data As Date Dim dataResp As Date Dim Feriado Feriado = Array(#11/2/2018#, #11/15/2018#, #11/20/2018#, #12/25/2018#) If IsDate(txtData.Text) = True Then Data = txtData.Value dataResp = WorksheetFunction.WorkDay(Data, dataResp, Feriado) txtDataResposta = dataResp + 5 Else erro = MsgBox("Erro na data", vbCritical, "Erro") txtData.SetFocus End If End Sub Obs.: neste formato não está descontando fins de semana e nem feriado. Poderiam me ajudar?