For intI = 1 To LastRow
        'set values
        intControl = intControl + 1
        If Controls("chkExclusio" & intControl).Value = True Then 
           rngExcelTest.Text = "Boo!" '("txtExclusio" & intControl)
            ''Re-insert the bookmark
            ActiveDocument.Bookmarks.Add "excelTest", rngExcelTest
        End If

Private Sub UserForm_Activate()

    Dim oXA As Excel.Application
    Dim oXB As Excel.Workbook
 
    Set oXA = Excel.Application
    Set oXB = oXA.Workbooks.Open("H:\proposalDocumentDevelopment\proposalTemplates\ScopeDeliverablesExclusionsExcelData.xlsx")


    Dim I As Integer 'loop count
    Dim LastRow As Integer 'count the number of rows that have something in them
    Dim myTextbox As MSForms.TextBox 'add textbox
    Dim myCheckbox As MSForms.CheckBox 'add checkbox
    Dim intControl As Integer 'to attach number to the textbox/checkbox name
    Dim intTop As Integer 'to place the textbox at a certain height
    Dim intScrollHeight As Integer 'to extend the form height
    
    LastRow = oXB.Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
    intControl = 0
    intTop = -24
    intScrollHeight = 575
    
    'loop until last row
    For I = 3 To LastRow
        'set values
        intControl = intControl + 1
        intTop = intTop + 60
        
        'if the textboxes pass the end of the userform extend the height
        If intControl > 9 Then
            UserForm3.ScrollHeight = intScrollHeight + 105
        End If
        
        'add textbox with properties (including inserting cell data into {value})
        Set myTextbox = UserForm3.Controls.Add("Forms.TextBox.1", "txtExclusio" & intControl)
        With myTextbox
            .Value = Range("C" & I)
            .Height = 44.25
            .WordWrap = True
            .Left = 42
            .Top = intTop
            .Width = 570
            .ScrollBars = fmScrollBarsVertical
            .Locked = True
            .MousePointer = fmMousePointerNoDrop
        End With
        
        
        'add checkbox with properties (including inserting cell data into {value})
        Set myCheckbox = UserForm3.Controls.Add("Forms.CheckBox.1", "chkExclusio" & intControl)
        With myCheckbox
            .Height = 21.75
            .Left = 24
            .Top = intTop
            .Width = 580
            .BackStyle = fmBackStyleTransparent
        End With
        
    Next I

    'release the excel document
    Set oXB = Nothing
End Sub

Private Sub btnInsert_Click()
    Dim oXA As Excel.Application
    Dim oXB As Excel.Workbook
    Set oXA = Excel.Application
    Set oXB = oXA.Workbooks.Open("H:\proposalDocumentDevelopment\proposalTemplates\ScopeDeliverablesExclusionsExcelData.xlsx")

    Dim intI As Integer 'loop count
    Dim LastRow As Integer 'count the number of rows that have something in them
    Dim intControl As Integer 'to attach number to the textbox/checkbox name

    LastRow = oXB.Sheets(2).Cells(Rows.Count, 3).End(xlUp).Row
               
    Dim rngExcelTest As Word.Range
    Set rngExcelTest = ActiveDocument.Bookmarks("excelTest").Range
    
    intControl = 0
    intI = 1
    
    'loop until last textbox
    For intI = 1 To LastRow
        'set values
        intControl = intControl + 1
        If Controls("chkExclusio" & intControl).Value = True Then
            rngExcelTest.Text = "Boo!" '("txtExclusio" & intControl)
            ''Re-insert the bookmark
            ActiveDocument.Bookmarks.Add "excelTest", rngExcelTest
        End If
    
    Next intI
End Sub

  Dim intI As Integer 'loop count
    Dim intLastBox As Integer 'count the number of textboxes
    Dim intControlInsert As Integer 'to attach number to the textbox/checkbox name
    Dim strTextboxSingleData As String 'data shown within textbox
    Dim strInsertData As String
    Dim ctrlTextbox As Control
     
    intLastBox = 0
    'strTextboxSingleData = ""
    
    For Each ctrlTextbox In Me.Controls
        If TypeOf ctrlTextbox Is MSForms.TextBox Then
            intLastBox = intLastBox + 1
        End If
    Next
    
    intLastBox = intLastBox - 1 'there is an extra textbox for the search
    intControlInsert = 0
    
    'loop until last textbox
    For intI = 1 To intLastBox
        'set values
        intControlInsert = intControlInsert + 1
        'strTextboxSingleData = Me.Controls("txtDEBox" & intControlInsert).Value
        
        'if checkbox is selected
       

	
Quote:
	

	

		

			
				 If Me.Controls("chkDEBox" & intControlInsert).Value = True Then
            strInsertData = strInsertData & Me.Controls("txtDEBox" & intControlInsert).Value & vbNewLine & vbNewLine
			
		
	
	

            rngDFATIntro.Text = strInsertData
            ActiveDocument.Bookmarks.Add "bmDFATIntro", rngDFATIntro
            
            With rngDDocumentation
                .Style = "Normal"
                .ParagraphFormat.IndentCharWidth (1)
            End With
        End If
    
    Next intI
   
    intControlInsert = 0
    intI = 0
    
    For intI = 1 To intLastBox
        intControlInsert = intControlInsert + 1
        If Controls("chkDEBox" & intControlInsert).Value = True Then
            Controls("chkDEBox" & intControlInsert).Value = False
        End If
    Next intI