r = ActiveSheet.Cells(Rows.Count, "G").End(xlUp).Row
For n = 1 To r
Dim s As String
Select Case Range("H",”I” & n).Text
Case "<>", "<>": s = "Open New"
If s <> "" Then Range("J" & n) = s
Every row in Column G has a sequential valued that recurs. Sometimes the same row in Column H has a string and sometimes the same row in Column I has a string for one or all of the rows of the recurring value. If Column H or Column I has a string in any row that Column G has a recurring value then I want to enter the text ‘Open New’ into Column J for every row of the recurring value in Column G. As you can see, I am stuck, can you help?
If that is the result you want but it needs to be by vba then one way would be to incorporate that formula solution into your vba:
Dim lr As Long
lr = Range("G" & Rows.Count).End(xlUp).Row
With Range("J2:J" & lr)
.Formula = Replace("=IF(SUMPRODUCT(--(G$2:G$#=G2),--(H$2:H$#&I$2:I$#<>"""")),""Open New"","""")", "#", lr)
.Value = .Value