…, aHolydays() As Date) As Date

Public Function WeekDayCalc(StartDate As Date, Days As Integer, HolD As Range) As Date
Dim x As Date
Dim i As Integer
Dim s As Integer

x = StartDate: i = 0

Do

x = x + 1

        For Each hd In HolD
            If x = hd Or Weekday(x, 2) = 6 Or Weekday(x, 2) = 7 Then
                s = 0
            ElseIf x = hd Or Weekday(x, 2) >= 1 And Weekday(x, 2) <= 5 Then
                s = 1
            End If
            
            If s = 0 Then
                Exit For
            End If
    Next hd
    
i = i + s

Loop Until i = Days

WeekDayCalc = x

End Function