```
Sub Sample()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim boolMatch As Boolean
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
ws1Value = ws1.Range("A1").Offset(X, Y).Value
ws2Value = ws2.Range("A1").Offset(X, Y).Value
boolMatch = True
Do Until ws1Value = ""
Do Until ws2Value = ""
If ws2Value <> ws1Value Then
boolMatch = False
Exit Do
End If
X = X + 1
ws1Value = ws1.Range("A1").Offset(X, Y).Value
ws2Value = ws2.Range("A1").Offset(X, Y).Value
Loop
X = 0
Y = Y + 1
ws1Value = ws1.Range("A1").Offset(X, Y).Value
ws2Value = ws2.Range("A1").Offset(X, Y).Value
Loop
If boolMatch = True Then MsgBox "Range is Identical" Else _
MsgBox "Range is not Identical"
End Sub
```

Sid