The below VBA code scores supplier, based on its response time, please your help to convert it to "IF" function format.
Code
Private Sub Score()
'Scoring Supplier
Response_Time = Today() - Completed_Date
Select Case True
Case Response_Time <= 7
Score = 4
Case Response_Time > 7 And Response_Time <= 14
Score = 3
Case Response_Time > 14 And Response_Time <= 21
Score = 2
Case Response_Time > 21
Score = 1
End Select
End Sub
Display More
Thank you