Pls help - vba for cell reference with file name..

[Revathi]

Hi all,

> I have a file in my desktop wherein the name of the file is ATL and data contains inside file will have the same word ATL in any cell reference..

> I just need a macro to cross verify the data that the file name and the cell reference should be the same if it goes wrong then it should provide some pop up message.

> The file contains 4 sheets wherein i need to cross verify all the four sheets.

Is it possible..

 

[Yongle]

Try something like this
- verifies value in cell A1 of all sheets in active workbook

Sub TestATL()
    Const cellRef = "[COLOR=#ff0000]A1[/COLOR]"
    Dim sht As Worksheet, msg As String
        For Each sht In ActiveWorkbook.Worksheets
            If WorksheetFunction.CountIf(sht.Range(cellRef), "ATL") = 0 Then msg = msg & vbCr & sht.Name
        Next
    If msg = "" Then msg = "all is ok"
    MsgBox msg, vbOKOnly, "Exceptions"
End Sub