I would like to apply the "Select Case" to a whole column instead of a single
cell. Could anyone please show me the way. For more information, I apply
the function to a single cell by the followings:-

Sub Test()
Case Is 80
Range("b1").Value = "Good"
Case Is 60
Range("b1").Value = "Fair"
Case Else
Range("b1") = "Unclassified"
End Select
End Sub

Thank you