Thanks Bob

"Bob Phillips" wrote:

Tina,

It would if you just extended it to

If Not Intersect(Target, Range("N:N")) Is Nothing Then

but you must also add the event disbaling/re-enabling code that I added.

--

HTH

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


"tina" wrote in message
...
Hi
Try
If Not Range("N:N") Is Nothing Then
in place of
If Target.Column = "NA" Then
Tina
"Esrei" wrote:

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