Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False

With Target
If .Column = 14 Then
.Offset(0,-1).Clear
.Offset(0,-3).Clear
.Offset(0,-4).Clear
End If
End With

ws_exit:
Application.EnableEvents = True
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Esrei" wrote in message
...
I need a macro that if I type a value in column N the cells in the same
row
in coloms M,J and K needs to be cleared. This is what I have at the moment
but I get runtime error 13 Type mismatch. I am just starting to learn
myself
VBA so please help.
Thanx


Private Sub Worksheet_Change(ByVal Target As Range)
Dim row As Integer

row = Target.row
If Target.Column = "NA" Then
Cells(row, 10).Clear
Cells(row, 11).Clear
Cells(row, 13).Clear
Cells(row, 14).Clear
End If
End Sub