Try this:

Function HighLow(ByRef InputCell As Range)
If Not WorksheetFunction.IsNumber(InputCell.Value) Then
HighLow = "Not Numeric"
Exit Function
End If
Select Case InputCell.Value
Case Is < 41: HighLow = "Low"
Case 41 To 70: HighLow = "Medium"
Case Is 70: HighLow = "High"
Case Else
End Select
End Function

Regards

Trevor


"AlphaElyssia" wrote in message
...

danke schon- but could i do it as a program not an if statement? Even if
its a long way to do it, I wanna impress said examiner ;)

Thanks loads though *:D*


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/