I modified the code a bit

For i = 1 To intNumContentControls       DocSheet.Cells(i + 1, 1).Value = WordDoc.ContentControls(i).Title
      If WordDoc.ContentControls(i).Type = 8 Then
        If WordDoc.ContentControls(i).Checked Then
          DocSheet.Cells(i + 1, 2).Value = "True"
        Else
          DocSheet.Cells(i + 1, 2).Value = "True"
        End If
      Else
        DocSheet.Cells(i + 1, 2).Value = WordDoc.ContentControls(i).Range.Text.Trim
      End If
    Next i
Added a .Trim to Range.Text

Now I get Invalid Qualifier error. How do I make this code work?