Code:Private Sub Worksheet_Change
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub
Application.EnableEvents = False
If Target.Address = "$A$1" Then
[A2] = 1
[A2].Select
ElseIf Target.Address = "$A$2" Then: [A1].Select
End If
If [A3] > [B3] Then
[A4] = [A1]
[B3] = [A3]
End If
Application.EnableEvents = True
End Sub
WooooWwwwwww. Exactly working., Yo dude., Feeling so much happy.Code:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" And Target.Address <> "$A$2" Then Exit Sub Application.EnableEvents = False If Target.Address = "$A$1" Then [A2] = 1 [A2].Select ElseIf Target.Address = "$A$2" Then: [A1].Select End If If [A3] > [B3] Then [A4] = [A1] [B3] = [A3] End If Application.EnableEvents = True End Sub