The target.cells.count allows more than 1 cell selected in range, but takes the input in the activecell of the multiple cell selection.

The ElseIf "X_Clear" works fine from a separate sub, but it won't respond in the change event macro.

Thanks.
Howard

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("$A$1:$H$10")) Is Nothing Or Target.Cells.Count 1 Then Exit Sub

Dim c As Range
Dim Data1 As Range
Set Data1 = Range("A1:H10")

For Each c In Range("Data1")
If c.Value = 0 Then
c.Interior.ColorIndex = xlNone
ElseIf c.Value = 5 Then
c.Interior.ColorIndex = 4
ElseIf c.Value <= 4 Then
c.Interior.ColorIndex = 3

ElseIf c.Value = "X_Clear" Then
Dim Ans As Variant
Ans = MsgBox(" " _
& " Clear Data1 ?", vbYesNo)
Select Case Ans
Case vbYes
Range("Data1").ClearContents
Range("Data1").Interior.ColorIndex = xlNone
Case vbNo
Exit Sub
End Select
End If

Next
End Sub