I am searching a column of values for a specific value.
How can I search for case sensitive data values?

Here is the code I am using;
Do Until ActiveCell = ""
If ActiveCell = strSearch Then
bolFound = True
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Thanks