Hi Bob,

I managed to get a Beep when I pasted this program into excel. So I
don't understand why I the simple program I pasted earlier won't work,
uhmmmmm....

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 2 Then Exit Sub 'A or B okay
If Cells(Target.Row, 1) < Cells(Target.Row, 2) Then
Beep
End If
End Sub


Carlton

*** Sent via Developersdex http://www.developersdex.com ***