InStr Question

[Peteor]

Sub Macro1()


Dim ER As Long
ER = ThisWorkbook.ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Dim Cell As Range
Dim CriteriaRange As Range
Set CriteriaRange = ThisWorkbook.ActiveSheet.Range("A3:A" & ER)
For Each Cell In CriteriaRange
If InStr(1, "H04C", vbTextCompare) = 1 Then 'I am trying to see if the string H04C exists within column A, and if so, do things'
File_name = ActiveCell.Value
Path_Name = ActiveCell.Offset(columnOffset:=5).Value
Workbooks.Open Filename:=File_name
End If
Next Cell


End Sub


Anyone have any ideas?

 

[Peteor]

H04C would not be the only thing in the cell

 

[Eric W]

Try:

    If Instr(1, Cell.Value, "[COLOR=#333333]H04C[/COLOR]", vbTextCompare) > 0 Then

although I'm not a fan of using a reserved word (Cell) as a variable name.

 

[shg]

Cell is not a reserved word, Eric.

 

[Eric W]

You are correct of course. "Cells" is.

 

[shg]

No biggie

 

[Peteor]

Worked like a charm. Cheers!

 

[Eric W]

You're welcome!