Originally Posted by

On Sunday, October 21, 2012 11:38:46 PM UTC-7, sumesh56 wrote:
;1606533 Wrote:

On Thursday, October 18, 2012 1:44:49 PM UTC-7,

wrote:-



Try this, assumes you will make all the entries and the activecell is

K3 after all those entries are made. It works for me to start in cell

A3 and after each entry use the "Right Arrow" key to advance throught

the field and after the entry in J3, you will be in cell K3.







Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)



If ActiveCell < Range("K3") Then Exit Sub



Dim I As Integer, J As Integer



I = Range("E3")



J = Range("K3")



If I < J Then



MsgBox "E Does Not Equal K"



End If



End Sub







Regards,



Howard-



OOOP's missed these two lines of code in my last reply. Add to the

bottom of the code I just sent.



End If

End Sub



these two phrases are already in the code. anyhow as you suggested i

added these to the code for the second time and excel says "only

comments may come after endsub, end function or end property"





+-------------------------------------------------------------------+

+-------------------------------------------------------------------+







--

sumesh56

Okay, my mistake. Remove the two lines and try the code.

Regards,
Howard