Fergie,

We can all understand that you are not a VBA developer. You should understand that we are not mind readers or prophets. When you post and say my code doesn't work without making least attempt to explain what specifically doesn't work or what exactly it is supposed to do then you simply frustrate anyone was once or still willing to help you!

In the very beginning, I asked you what the entering arguments are. You replied "Y", "N", "N\A". Well from even a cursory look at the example of code you did provide anyone could tell the procedure take four arguments (not three) and there is absolutely nothing in that code that tallies anything.

[IMG]file:///C:/Users/gmaxe/AppData/Local/Temp/SNAGHTML5cabb1a.PNG[/IMG]

While Graham is correct about the benefits of properly titling and tagging CCs, it isn't absolute and certainly not required in the case of the document you posted the other day with the 1000+ CCs. Try this:

Sub ScratchMacro()'A basic Word macro coded by Greg Maxey, http://gregmaxey.com/word_tips.html, 12/2/2018
Dim lngY As Long, lngN As Long, lngNA As Long
Dim oCC As ContentControl
Dim oRng As Range
  For Each oCC In ActiveDocument.Range.ContentControls
    Select Case oCC.Type
      Case 8
        If oCC.Checked Then
          lngY = lngY + 1
        Else
          lngN = lngN + 1
        End If
      Case 3, 4
        Select Case oCC.Range.Text
          Case Is = "Y": lngY = lngY + 1
          Case Is = "N": lngN = lngN + 1
          Case Else: lngNA = lngNA + 1
        End Select
    End Select
  Next oCC
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngY & " checked or Y responses"
  oRng.Font.ColorIndex = wdBlue
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngN & " unchecked or N responses."
  oRng.Font.ColorIndex = wdRed
  Set oRng = ActiveDocument.Range
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr & "There are " & lngNA & " blank or invalid responses"
  oRng.Font.ColorIndex = wdGreen
lbl_Exit:
  Exit Sub
End Sub