Recognising first word in cell

[aa2000]

Hi guys

In a macro I'm working on, I wish to run a procedure if the first word in a cell in that column matches a certain word.

For example the text in a cell in the column reads

"Experiment 45 8"

Where the numbers vary with each one.
Currently I have written this:

If Cell(a, 1).Value = "EXPERIMENT" & "*" Then ...

However this does not work, so what should I change?

Thanks

 

[Weaver]

Will this word occur multiple times?

Are you currently going through each cell of data in the first column? If so, you could be using .find to go straight to the cells

Sub findRows()
    With Columns(1)
        Set f = .Find(what:="Experiment*", lookat:=xlWhole)
        If Not f Is Nothing Then
            fa = f.Address
            Do
                'insert code here:  if you need to know the row no. you can use f.row
                Set f = .FindNext(f)
            Loop Until f.Address = fa
        End If
    End With
End Sub

This will loop through all cells in column 1 where "Experiment" is the first text, stopping when it reaches the same cell it started with.

 

[Weaver]

or to use your current syntax:

If Cell(a, 1).Value like "EXPERIMENT*" Then ...

 

[aa2000]

Thanks a lot Weaver! Your suggestions worked perfectly.

 

[Weaver]

Thanks a lot Weaver! Your suggestions worked perfectly.

No problem! Thanks for the feedback.