activecell offset help

[aspence]

I have the code below, which defines a range in column K then searches that range for any cell where the value equals "Customer Tickets". From there, I am having trouble getting what I want out of the macro.

What I need is:
For every occurance of "Customer Tickets" in column K, i need some of the data in the corresponding rows to be changed to "Checked".

For example, if the macro finds cell K19 to be equal to "Customer Tickets, then I need the value in cells M19:O19 to all equal "Checked" and I cant seem to get the offset to work correctly.

Sub CustTick()
 
Dim metric As Range
' highlights variable range in column K
LastRow = Range("K1").End(xlDown).Row
Range(Cells(2, "K"), Cells(LastRow, "K")).Select
' sets selection as the range to search
Set metric = Selection
For Each Cell In metric
  If Cell = "Customer Tickets" Then
    ' need macro
  End If
Next Cell
End Sub

Any ideas?

 

[Scott Huish]

Sub test()
Dim c As Long, d As Range, e As Long
c = Range("K" & Rows.Count).End(xlUp).Row
For Each d In Range("K1:K" & c)
    If UCase(d) = "CUSTOMER TICKETS" Then
        For e = 2 To 4
            If d.Offset(, e) > d.Offset(, 1) Then
                d.Offset(, e).Interior.Color = vbRed
            Else
                d.Offset(, e).Interior.ColorIndex = xlNone
            End If
        Next
    End If
Next
End Sub

 

[aspence]

And to increase the number of columns, I just increase the last number here.

For e = 2 To 4

For example, to include column P, Q and R.

For e = 2 To 7

The help is much appreciated HOTPEPPER. I should be good to work this to my exact specifications.