If WorksheetFunction.VLookup(Range("C5").Value, Sheets("Nadia Extraction").Range("E3:AD500"), 10, False) <> "" Then
Sheets("MAIN").Range("C9") = "OK"
Else
Sheets("MAIN").Range("C9") = WorksheetFunction.NetworkDays(Range("AR1"), Range("C8")) 'Numbers of Days before RFQ
End If