The code below works fine for users on excel 2003 and later but we have a
couple of people still on 97 which doesn't seem to handle the Join function.
Any thoughts on a replacement code that will work across all versions would
be appreciated. Thanks

Sub DataError()
Dim Contents As String
Contents = Join(WorksheetFunction.Transpose(Range("L2:L1250") ), Chr(1))
If InStr(1, Contents, Chr(1) & "Not on System" & Chr(1), vbTextCompare) Then
MsgBox "Please review and update the database if required."
End If
Application.ScreenUpdating = True
End Sub
Application.ScreenUpdating = True
End Sub