Hello friends..........

i have a workbook, it contains more than 100 sheets........i already save all sheets with a number i.e. 1111, 1121, 1558 etc. etc..........

i run this code in a separate sheet......... it display all sheets name which i actually mentioned
Sub SheetNames()
Columns(1).Insert
For i = 1 To Sheets.Count
    Cells(i, 1) = Sheets(i).Name
Next i
End Sub
Now what i want :- for example :- 1. In sheet 1111, cell D5 contains 1111 number
2. In sheet 1121, cell D5 contains 1121 number
3. In sheet 1558, cell D5 contains 1558 number

i want to match all sheet's name with Cell D5. I want to generate this report in a different sheet in same workbook. Format Example:- Col A1 have Sheet Name, Col B1 have D5 value, Col C1 shows Match or Unmatch...................i want to know How many sheet's name are matched with Cell D5