Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objRange As Range, objCell As Range
Set objRange = Union(Cells(1, 1), Cells(2, 2), Cells(3, 3))
If Not Intersect(Target, objRange) Is Nothing Then
For Each objCell In objRange
If objCell.Value <> vbNullString Then
CommandButton1.Enabled = False
Exit For
End If
Next
If objCell Is Nothing Then
CommandButton1.Enabled = True
Else
Set objCell = Nothing
End If
End If
Set objRange = Nothing
End Sub
Private Sub CommandButton1_Click()
MsgBox "test"
End Sub