VBA Insert specific text in one cell if another cell contains the word "Delivery".

[Livin404]

I have a formula that will input specific text in once cell if data is found in another.

The Formula I am using is =IF(H8="Delivery" ,"Refer to Company Guidance")

I would like have a VBA determine that if cell H8 contains the text "Delivery" in any part of the cell, then the text "Refer to Company Guidance" will be inserted in cell H12.

Thank you,

 

[Sparcot]

If ActiveSheet.Range("H8").Value = "Delivery" Then
ActiveSheet.Range("H12").Value = "Refer to Company Guidance"
End If

 

[Livin404]

If ActiveSheet.Range("H8").Value = "Delivery" Then
ActiveSheet.Range("H12").Value = "Refer to Company Guidance"
End If

That is correct, but I may have some like "/Delivery". So if delivery is anywhere in the cell. I think "Case" has to be written some place.

Thank you,

 

[Sequoyah]

Hi Livin404,
try this code:

If InStr(UCase(ActiveSheet.Range("H8").Value), "DELIVERY") Then
ActiveSheet.Range("H12").Value = "Refer to Company Guidance"
End If

 

[Livin404]

Hi Livin404,
try this code:

If InStr(UCase(ActiveSheet.Range("H8").Value), "DELIVERY") Then
ActiveSheet.Range("H12").Value = "Refer to Company Guidance"
End If

Thank you, I think that will do it. much appreciated.