If its on ONE line then no end if needed.OR, if you use a continuation
character at the end of the line (space and underscore)

If Target.Address < Range("L36").Address _
Then Exit Sub
'no end if

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JohnL" wrote in message
...
Don, This worked perfectly! I don't mean to look a gift horse in the
mouth,
but if there is an If...Then statement why isn't there an End If?
Thanks again Don.

John

"Don Guillett" wrote:

Right click sheet tabview codecopy/paste this
Private Sub Worksheet_Change(ByVal Target As Range)
'Every time the User inputs data in cell L36
'Then cells E40 thru E43 are cleared.
If Target.Address < Range("L36").Address Then Exit Sub
Range("e40:e43").ClearContents
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"JohnL" wrote in message
...
I am attempting to write code that does the following:
Every time the User inputs data in cell L36
Then cells E40 thru E43 are cleared.
Thanks
John