Input text if cell with data does not equal

[Livin404]

Greetings, I've tried using the macro below, but it is adding text to everything. Anytime "ACV" is NOT entered in Column G, I need to have "THRU-LOAD" placed in the corresponding row in Column M. Thank you,

Sub THRU_LOAD()
    Dim i As Long
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Left(ActiveSheet.Cells(i, 3).Value, 3)
            Case Is <> "ACV"
                ActiveSheet.Range("N" & i) = "THRU-LOAD"
        End Select
    Next i
End Sub

 

[Ezguy4u]

Livin This should get the ball rolling. Now I guess there are some questions and let the questions begin. Like you say ACV is not entered in column G. Column G is 7 in the Cells( i, 7). You have an "N" in the code but you state column M in the instructions. So I have a program and data input and output below. Look it over and let us know what's next.

Sub THRU_LOAD()
    Dim i As Long
    
    For i = 1 To ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row
    
        Select Case Left(ActiveSheet.Cells(i, 7).Value, 3)
        
            Case Is <> "ACV"
                ActiveSheet.Range("M" & i) = "THRU-LOAD"
        End Select
        
    Next i
End Sub

Book1
	G	H	I	J	K	L	M
1	MMACV						THRU-LOAD
2	abc						THRU-LOAD
3	ACVNN
4	time						THRU-LOAD
5	ACV
Sheet1

 

[Livin404]

That is beautiful, and spot on! Thank you!

 

[Ezguy4u]

Thank you for the feed back and just glad I could help

 

[Livin404]

Thank you for the feed back and just glad I could help

Thank you for thanking me, I just posted another questions, indirectly related to our resolved issue.