Compare Two Ranges Objects

[cameronfraser]

How do I compare two headers on two separate Excel spreadsheets using VBA using range objects?

The headers are made up of a range of cells A1:Q3. On Sheet1 I set the header range as the object Range1. On Sheet2 I set the header range as Range2.

Worksheets("Sheet1&quot.Range("A1","Q3&quot.Select
Set Range1 = Selection
Worksheets("Sheet2&quot.Range("A1","Q3&quot.Select
Set Range2 = Selection

Now, How do I compare Range1 to Range2 to see if they each contain the same data.

 

[vbMax]

Sub findDiff()

For Row = 1 To 3
For Column = 1 To 17 'A to Q

If Worksheets(1).Cells(Row, Column).Value <> _
Worksheets(2).Cells(Row, Column).Value Then
Rsp = MsgBox(&quot;Heading different in cell: &quot; & _
Chr(64 + Column) & LTrim(Str(Row)), vbCritical)
anyErrors = True
End If

Next Column
Next Row

If Not anyErrors Then
Rsp = MsgBox(&quot;Headings are identical.&quot;, vbExclamation)
End If

End Sub