Bom dia tenho o seguinte problema preciso comparar datas em vba excel e setar uma condição onde o critério é de 3 dias uteis.

tendo então que desconsiderar sábado e domingo.

Segue Abaixo trecho 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