**Macro with IF conditions**

[lhk201]

Is it possible to create a macro that follows the following conditions?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
If any cell within the range a6:h200 is selected then that cell will have the word “no” entered into it. This should happen only when the cell is blank.<o></o>
<o> </o>
If the cell is not blank and it is selected within the same range then the cell should now be cleared.<o></o>

Thanks in advance for any help at all regarding this matter.

 

[VoG]

Try

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("A1:B3,A6:H200,J4:J9")) Is Nothing Then Exit Sub
If Target.Value = "" Then
    Target.Value = "no"
Else
    Target.ClearContents
End If
End Sub