"if S2 contains "WALES" and T2 contains "YES" then change A2 to "YY" (Then cycle through rows)"
Sub AllTheExs() Application.ScreenUpdating = False Dim lr As Long lr = Range("S" & Rows.Count).End(xlUp).Row For Each cell In Range("S2:S" & lr) If UCase(cell.Value) = "WALES" Then cell.Offset(, -18) = "XX" End If AllTheExsAndYs Next End Sub Sub AllTheExsAndYs() Dim lr As Long Dim i As Integer lr = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To lr If UCase(Cells(i, 19).Value) = "WALES" And UCase(Cells(i, 20).Value) = "YES" Then Range(Cells(i, 1), Cells(i, 1)) = "YY" End If Next Application.ScreenUpdating = True End Sub
Sub AllTheExs() Application.ScreenUpdating = False Dim lr As Long lr = Range("S" & Rows.Count).End(xlUp).Row For Each cell In Range("S2:S" & lr) If UCase(cell.Value) = "WALES" Then cell.Offset(, -18) = "XX" End If Next Application.ScreenUpdating = True End Sub
DON'T MISS
Used your extras and have managed to duplicate it to look at dozens of columns all working perfectly!
You've saved me hours of work, very much appreciated.
Thanks again!