Solved: Need a msgbox to report to me the missing record number

[shrivallabha]

Here's a revised version of Paul's idea. This code marks "ERR" in column B where a value is missed.
[VBA]Sub PaulsIdea()
Application.ScreenUpdating = False
With Range("B3:B" & Range("A" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = "=IF(R[-1]C[-1] - 1<>RC[-1]," & Chr(34) & "ERR" & _
Chr(34) & "," & Chr(34) & Chr(34) & ")"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub[/VBA]