スキルアップ・問題解決なら、モーグにおまかせ！

お疲れさまです。
 
ChatGPTで作ってもらったコードにてエラーが出てしまい、色々と質問をしてみたのですが、
回答の内容がわからないため、こちらへ投稿させて頂きました。
宜しくお願い致します。
 
コード: シート名「版下処理」のA列に番号が記載されていて、重複がある場合、重複セルに
色をつけるコードを作成してもらいました。
 
エラー内容:
アプリケーション定義またはオブジェクト定義のエラーです。
cell.Interior.Color = RGB(127, 255, 212)
 
 
     Dim cell As Range
    Dim rng As Range
 
    '「版下処理」をシート名に変更してください
    With ThisWorkbook.Worksheets("版下処理")
        Set rng = .Range("A2:A50")
    End With
 
    For Each cell In rng
        If WorksheetFunction.CountIf(rng, cell.Value) > 1 Then
            cell.Interior.Color = RGB(127, 255, 212) '好みの色に変更してください
        End If
    Next cell

For Each cell In rng の 上の行に、
Set cell = rng.Cells(1) を追加してもエラーになりますか？

taitaniさん
 
早速、ありがとうございます。
追加しまして、実行したら、下記のようにエラーになりました。
お忙しいとは思いますが引き続き宜しくお願い致します。
 
アプリケーション定義またはオブジェクト定義のエラーです。

引用:
エラー内容:
アプリケーション定義またはオブジェクト定義のエラーです。
cell.Interior.Color = RGB(127, 255, 212)

ありがとうございました。
 
A列は、シート保護のロックは、行っていないのですが、他の列には、ロックしておりました。
シート保護を解除したところ、エラーがでなくなりました。
 
ありがとうございました。