Check - Similar Row contents - Different Sheets

[al007]

I'm looking for a macro which would check ifcontents of Row 2 of
Sheet2, Sheet4, Sheet6, and Sheet 9 are the same as Row 2 of sheet1 and
a message box appearing would show in which sheets the rows are
different.
Can anybody help

Thxs

 

[Tom Ogilvy]

the entire contents or the content of specific cells? (all 256 cells in
each row?)

You say similar in the subject and the same in the body.

 

[al007]

Not necessarily all 256 cells - you can take Column A to Z( i WILL
MODIFY ACCORDINGLY) - actual the reason behind that is that I want to
check that the data in all sheets are under the same header so that I
can sum across sheet to get a total.Thxs a lot for your help - waiting
impatiently for your suggestion. I'm sure you'll enrich my excel
again...

THXS tHXS

 

[Tom Ogilvy]

Sub CheckRow2()
Dim v, v1
Dim i As Long, k As Long, bMisMatch As Boolean
Dim rng As Range, cell As Range, sStr As String

v = Array("Sheet2", "Sheet4", "Sheet6", "Sheet9")

v1 = Worksheets("Sheet1").Range("A2:IV2")
For i = LBound(v) To UBound(v)
Set rng = Worksheets(v(i)).Rows(2).Cells
k = 0
bMisMatch = False
For Each cell In rng
k = k + 1
If cell.Value <> v1(1, k) Then
bMisMatch = True
Exit For
End If
Next
If bMisMatch Then
sStr = sStr & v(i) & ", "

End If
Next
If Len(sStr) > 3 Then
MsgBox "Sheets not matching: " & vbNewLine & _
Left(sStr, Len(sStr) - 2)
Else
MsgBox "Good to go"
End If
End Sub

 

[al007]

thxs a lot!!!
(1)How can I amend it to check column B - From row2 to row 20?? - if
it's not too much asking.

& In the row macro - (2) how to replace the "variables" by a user
message box i.e
"Sheet1"
Range("A2:IV2")
"Sheet2", "Sheet4", "Sheet6", "Sheet9"
(as I would like to turn it into a standard macro which I can use in
other workbooks with different sheetname & row.


Many Many Thxs for your help - you're the best