Test to see if cell equals text

[dwg83]

I am trying to see if a cell has a certain word in it. What do I need to change in the following code:

    If ISheet.Cells(i, 2) = "Electricity" Then
        FProduct.Cells(i - 1, 2) = "Electric" & emeters
        FProduct.Cells(i - 1, 4) = "e"
        FProduct.Cells(i - 1, 5) = 3413
        FProduct.Cells(i - 1, 6) = 3413
        eflag = True
    ElseIf ISheet.Cells(i, 2) = "Natural Gas" Then
        FProduct.Cells(i - 1, 2) = "Nat Gas" & gmeters
        FProduct.Cells(i - 1, 4) = "g"
        FProduct.Cells(i - 1, 5) = 100000
        FProduct.Cells(i - 1, 6) = 100000
        gflag = True
    Else
    End If

Thanks

 

[VoG]

Possibly

If ISheet.Cells(i, 2) Like "*Electricity*" Then
    FProduct.Cells(i - 1, 2) = "Electric" & emeters
    FProduct.Cells(i - 1, 4) = "e"
    FProduct.Cells(i - 1, 5) = 3413
    FProduct.Cells(i - 1, 6) = 3413
    eflag = True
ElseIf ISheet.Cells(i, 2) Like "*Natural Gas*" Then
    FProduct.Cells(i - 1, 2) = "Nat Gas" & gmeters
    FProduct.Cells(i - 1, 4) = "g"
    FProduct.Cells(i - 1, 5) = 100000
    FProduct.Cells(i - 1, 6) = 100000
    gflag = True
End If

 

[dwg83]

That worked. Is that typical when testing to see if a cell's value matches a text string...or is the Like a way to get around small differences?

Regardless, thanks for the answer

 

[VoG]

Using Like "*word*" is equivalent to looking for word anywhere in the cell.