【マクロ・VBA】アクティブシートと右隣のシート間で異なるデータに色を付ける

Sub シートを比較して違う値に色をつける()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim myList_1 As Variant
Dim myList_2 As Variant
Dim i As Long
Dim j As Long


 Set ws1 = ActiveSheet
 Set ws2 = ActiveSheet.Next

 '各シートのA~C列のデータを配列に格納
 ws1.Select
 myList_1 = ws1.Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value

 ws2.Select
 myList_2 = ws2.Range("A1", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value

 'ActiveSheetに色つける
 For i = 1 To UBound(myList_1)
    '3列ループ
     For j = 1 To 3
        '2つのシートの値が異なる場合、セルに色をつける
         If myList_1(i, j) <> myList_2(i, j) Then
           'エラーが発生した場合は、異なる値なのでセルに色をつける
            On Error Resume Next
            ws1.Cells(i, j).Interior.Color = 65535
         End If
     Next j
 Next i

 'ActiveSheet.Nextに色つける
 For i = 1 To UBound(myList_2)
    For j = 1 To 3
        If myList_1(i, j) <> myList_2(i, j) Then
           On Error Resume Next
           ws2.Cells(i, j).Interior.Color = 65535
        End If
    Next j
 Next i

Set ws1 = Nothing
Set ws2 = Nothing

MsgBox "完了"
End Sub

Sub シートを比較して違う値に色をつける２()

Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim myList_1 As Variant
Dim myList_2 As Variant
Dim i As Long
Dim j As Long

Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")

'各シートのA~C列のデータを配列に格納
myList_1 = ws1.Range("A1:C" & ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row).Value
myList_2 = ws2.Range("A1:C" & ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row).Value

'Sheet1に色つける
For i = 1 To UBound(myList_1)
For j = 1 To 3
If myList_1(i, j) <> myList_2(i, j) Then
ws1.Cells(i, j).Interior.Color = 65535
End If
Next j
Next i

'Sheet2に色つける
For i = 1 To UBound(myList_2)
For j = 1 To 3
If myList_1(i, j) <> myList_2(i, j) Then
ws2.Cells(i, j).Interior.Color = 65535
End If
Next j
Next i

Set ws1 = Nothing
Set ws2 = Nothing

MsgBox "完了"

End Sub