Funktion i VBA ved anvendelse af Case

Hej

Jeg har forsøgt at lave nedenstående funktion, men kan kun få den til at returnere "fejl" - hvad mangler jeg?


Function stikRap(stikCell As Range) As String

Select Case stikCell
    Case stikCell.Value = ""
        stikRap = "INTET INPUT"
    Case stikCell.Value <> "OK"
        stikRap = stikCell.Value
    Case Else
        stikRap = "fejl"
End Select

End Function

Med venlig hilsen

TVC