vb script help

[Emoncada]

I have the following vb script that works great but would like to add something to it that needs to be placed within the With formula I believe.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("B5,B7,B9,B11,B13,D5,D7,D9,D11,D13,F7"), Target) Is Nothing Then
Exit Sub
End If
With Target
If .Value = "X" Then
.Value = ""
Else
.Value = "X"
Select Case .Column
Case 2
.Offset(, 2).ClearContents
.Offset(, 4).ClearContents
Case 4
.Offset(, 2).ClearContents
.Offset(, -2).ClearContents
Case 6
.Offset(, -2).ClearContents
.Offset(, -4).ClearContents
End Select
End If
End With

Cancel = True
End Sub

I want to add this
If Range("D11").Value = "X" Then Range("B20").Value = "N/A"
If Range("D11").Value = "" Then Range("B20:H20").Cells.ClearContents

This part I had after the End With but i was doing it everytime someone double clicked a Target cell. So if someone input data in the "B20" cell then went back to a target cell and double clicked it if "D11" = "" it clears that range. Is there a fix for that?

[Bob Phillips]

Is this what you need?



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("B5,B7,B9,B11,B13,D5,D7,D9,D11,D13,F7"), Target) Is Nothing Then
Exit Sub
End If
With Target
If .Value = "X" Then
.Value = ""
Else
.Value = "X"
Select Case .Column
Case 2
.Offset(, 2).ClearContents
.Offset(, 4).ClearContents
Case 4
.Offset(, 2).ClearContents
.Offset(, -2).ClearContents
Case 6
.Offset(, -2).ClearContents
.Offset(, -4).ClearContents
End Select
End If
If Target.Address(False, False) = "D11" And .Value = "X" Then Me.Range("B20").Value = "N/A"
If Target.Address(False, False) = "D11" And .Value = "" Then Me.Range("B20:H20").Cells.ClearContents
End With

Cancel = True
End Sub

[Emoncada]

It's not clearing out the N/A once it's there.

[Bob Phillips]

What N/A, where?

[Emoncada]

If "D11" = "X" then "B20" = "N/A", But if they click "B11" then "D11" = "" but "B20" stays as "N/A".

[Emoncada]

BUMP!