Hi, I have this problem:

I need to check, whether in a cell there is or not string, beginning
with "Access" I tried to make a macro, but I am not able to do it...

Example of text in cells:
Calls to Eurotel
Calls to Orange
Access No. 45687
Local Calls
Access No. 15789
Calls to Orange
Calls to Eurotel
Access No. 78896

I tried to write a code like:

Sub Check()
Dim MyString As String
Do
MyString = ActiveCell.Value
If MyString = "Access*" Then
MsgBox "I've found one!"
End If
ActiveCell.Offset(1, 0).Select
Loop Until MyString = "Access*"
End Sub

Any idea please?

Marian