VBA Function

[ziad alsayed]

dear all

i am using the below function and it is working, but if i use in a cell that is formatted is percentage (60%, 80%....) it will not work.

appreciate any assistance

Function GetRemarks(rng As Range) As String
Dim Appraisal As Byte
Appraisal = rng.Value
Select Case Appraisal
    Case 60 To 79
    GetRemarks = "Meet Expectation"
    Case Is > 80
    GetRemarks = "Above Expectation"
    Case Is < 60
    GetRemarks = "Below Expectation"
End Select
End Function

 

[p45cal]

..don't need a vba function at all
=LOOKUP(E16, {0,0.6,0.8},{"Below","Meet","Above"}) & " Expectation"
now where's my coat?..

 

[ziad alsayed]

dear shg

you are right, i notice that in the firt code you posted.

 

[ziad alsayed]

dear p45cal

i just saw your post, that is really good


thanks again,