Marian,

Use the LIKE operator. E.g.,

If MyString Like "Access*" Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Marian" wrote in message
...
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