that is awesome. thanks again joe
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 1-31-18 11:00 PM EST
If Target.Column = 1 Or Target.Column = 4 Or Target.Column = 5 Then
Cancel = True
Target.Resize(, 2).ClearContents
End If
End Sub