与A1单元格值进行比较,假如发生异常,就弹出提示对话框

与A1单元格值进行比较,假如发生错误,就弹出提示对话框
EXCEL上的值是条码扫描上去的, 要求第一个单元格的值A1为标准, 每扫一下,EXCEL是自动换行的,这个不用写代码, 就是要求每扫出来的值都要与A1比较,假如错误,就跳出提示对话框, 非要鼠标去点掉, 才能继续扫下一个条码.  这个VBA代码如何写呢
------解决思路----------------------
说了半天你的“发生错误”就是内容不一样啊？
当你在SHEET里的选中单元格位置发生变化时（说白了就是你点了一个不一样的单元格）就会触发。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Row > 1 Then
        If Cells(Target.Row - 1, 1) <> Cells(1, 1) Then MsgBox "错误：不一致:", vbOKOnly + vbCritical, "提示:"
    End If
End Sub