This code works fine but only for single value . But i want to apply for every coulmn cells like A1 Coulmn cells
Set wkb3 = Workbooks.Open(wknm2)
For i = 2 To 100
For j = 2 To 100
select2 = wkb3.Sheets("Sheet2").Range("A2").Value
Set wkb2 = Workbooks.Open(wknm1)
select1 = wkb2.Sheets("Shipment").Range("D2")
If select1 = select2 Then
MsgBox "Value is equal"
Else
MsgBox "Value not equal"
End If
Next j
Next i
please help me out ..
Thanks
aksh619