Need Help - Searching Column

[Airbisk]

Hello,

I have the code below that searches for a value and colours the row. Could someone please adjust so that it only searches Column M.

Sub ColorRow()

Application.ScreenUpdating = False

Dim r As Range
For Each r In ActiveSheet.UsedRange
If LCase(r.Value) Like "*/*" Then
Range("A" & r.Row, "M" & r.Row).Interior.Color = 16764108
End If
Next
End Sub

Many Thanks

 

[PHV]

Why not simply use Conditional Formatting ?

Anyway you may use this:
For Each r In ActiveSheet.UsedRange.Columns("M").Cells

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Airbisk]

Thanks PH - I thought conditional formatting was limited to just the cell and couldn't format cell ranges, I need to check that out becuase that would be a lot better