Desconsiderar Final de semana vba excel

[Visitante: claudineicaje]

Bom dia tenho o seguinte problema

preciso comparar datas com o critério de 3 dias porém tenho que desconsiderar fins de semana.

Abaixo exemplo do código

i = 5
Do

  'se existir uma célula vazia preenche com a data de hoje
  If (Range("K" & i).Value = "") And (Range("A" & i).Value <> "") Then
    Range("K" & i).Value = Date
  End If


  If Range("J" & i).Value = "" Then
    Range("L" & i) = ""
  ElseIf Range("J" & i).Value = Range("K" & i).Value Then
    Range("L" & i) = "OK"
    Range("L" & i).Interior.ColorIndex = 10
  ElseIf Range("J" & i).Value <> Range("K" & i).Value Then
    data1s = Range("K" & i).Value
    data2s = Range("J" & i).Value


    'resultado = DateDiff("d", data2s, data1s)
    datalimite = data2s + 3

    'WeekdayName (datalimite)



    If data1s < datalimite Then
      Range("L" & i) = "OK"
      Range("L" & i).Interior.ColorIndex = 10

    ElseIf datalimite = data1s Then
      Range("L" & i) = "Alerta"
      Range("L" & i).Interior.ColorIndex = 6

    Else
      Range("L" & i) = "Critico"
      Range("L" & i).Interior.ColorIndex = 3
    End If

  End If

  i = i + 1
Loop Until i = 1000