I am using this code within the worksheet but cannot get any functionality in a macro enabled workbook .
"Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case ""
.Value = "YES"
Case "YES"
.Value = "NO"
Case "NO"
.Value = "N/A"
Case Else
.Value = ""
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub"
I then hope to adapt this code to function on several cells in this worksheet