Okay don't hate me...I'm back! What would the code need to be if they were different sizes? I tried implementing it into the more complex workbook that I have and I think there are more rows so it is throwing an error on the first For Loop??
Type Mismatch Error. The two sheets are rather large and there are updates every week. I originally was just using a simple data set to try and figure out how to do it but now I am running into new problems haha.
Basically there could be new rows or columns each week I get an updated sheet and I want to be able to see what changed without manually having to go through all 3,000 lines. It would be awesome to have the cells highlighted that have changed or been added.
Dim Ary1 As Variant, Ary2 As Variant
Dim r As Long, c As Long
Dim ws As Worksheet
Set ws = Sheets("pcode")
Ary1 = ws.Range("A1").CurrentRegion.Value2
Ary2 = Sheets("sheet1").Range("A1").CurrentRegion.Value2
For r = 1 To UBound(Ary2)
If Not IsError(Ary2(r, 1)) Then .Item(Ary2(r, 1)) = r
For r = 1 To UBound(Ary1)
If Not IsError(Ary1(r, 1)) Then
If .Exists(Ary1(r, 1)) Then
For c = 1 To UBound(Ary1, 2)
If Not IsError(Ary1(r, c)) And Not IsError(Ary2(.Item(Ary1(r, 1)), c)) Then
If Ary1(r, c) <> Ary2(.Item(Ary1(r, 1)), c) Then
ws.Cells(r, c).Interior.Color = vbRed
ws.Rows(r).Interior.Color = vbRed