Excel 影响VBA代码中的某些列/列范围

我正在使用下面的VBA代码，根据特定单元格中指定的文本更改单元格的颜色。我已经让代码在活动工作表中工作，但是当我运行代码时，它会删除我原始电子表格中的所有颜色（不确定为什么）。我只想将此代码应用于表中的某些列。 EX仅更改第12-1000行之间P列和Y列中这些值的颜色

以下是我正在使用的代码：

Sub changeColor()

    Dim itm As Range

    Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Offset(1).Interior.ColorIndex = xlColorIndexNone

    For Each itm In ActiveSheet.UsedRange.Offset(1)
        If Not IsError(itm) Then
            With itm
                Select Case .Value2
                    Case "GREEN", "green", "Green"
                        .Interior.Color = XlRgbColor.rgbLightGreen
                    Case "RED", "red", "Red"
                        .Interior.Color = XlRgbColor.rgbRed
                    Case "Yellow", "yellow", "Yellow"
                        .Interior.Color = XlRgbColor.rgbYellow
                End Select
            End With
        End If
    Next
    Application.ScreenUpdating = True


End Sub 

@“但当我运行代码时，它会擦除我原始电子表格中的所有颜色（不知道为什么）。”

这行是说，使用范围内的每个单元格，擦除该颜色：

ActiveSheet.UsedRange.Offset(1).Interior.ColorIndex = xlColorIndexNone

---

然后使用Tim Williams在评论中所说的内容，指定要循环的单元格范围。

PS感谢为ActiveSheet.range（“P12:Y1000”）中的每个itm共享这段代码的人