Clint,
Add "Option Explicit" as the first line in your module then
give this a try...
'--
Sub standardCanKill()
Dim c As Range
Dim MyRange As Range
Dim arrRng() As String
Dim yellowCells As Long
Dim N As Long
Dim M As Long

Set MyRange = Range("A1:D20")
ReDim arrRng(1 To MyRange.Count)

For Each c In MyRange
   If c.Interior.ColorIndex = 6 Then
      If c.MergeCells Then
         N = N + 1
         For M = 1 To N
             If c.MergeArea.Address = arrRng(M) Then
             Exit For
             End If
         Next
         If M > N Then
            yellowCells = yellowCells + 1
            arrRng(N) = c.MergeArea.Address
         End If
      Else
         yellowCells = yellowCells + 1
      End If
   End If
Next
MsgBox yellowCells
Set c = Nothing
Set MyRange = Nothing
End Sub