I need to make a document for my work. I've been doing my best at finding the answers on the net but just keep coming up against errors and it's just not working.

I have a userform with checkboxes. Multiple checkboxes need to be selected. Basically what I was thinking was...



If A is selected insert data from xyz.doc at bookmark 1

If B is selected insert data from xyz.doc at bookmark 2

Then I also read a post on here about docvariables which i'm not entirely sure about.

The inital code I had was as per below, however I'm it's not working as there's some error with the Else statement however I don't necessarily want the Else statement as I don't want to have one or the other checked, I want to be able to have multiple check boxes checked and pull data from each section in Word (or Excel, whatever you think is best)

Private Sub CommandButton1_Click()

Dim DocSrc As Document, DocTgt As Document, RngSrc As Range, RngTgt As Range

Set DocTgt = ActiveDocument

Set DocSrc = Documents.Open("C:\Users\reception.AIRDG\Documents \Custom Office Templates\2019 Master Specification - Kate.dotm")

Set RngTgt1 = DocTgt.Bookmarks("spec").Range

Set RngTgt2 = DocTgt.Bookmarks("surveys").Range



With ActiveDocument

If CheckBox1.Value = True Then

With DocSrc

Set RngSrc = .Range(.Bookmarks("Demo").Range.Start, .Bookmarks("EndDemo").Range.End)

RngSrc.Copy

With DocTgt

RngTgt1.Paste

Else

If CheckBox2.Value = True Then

With DocSrc

Set RngSrc = .Range(.Bookmarks("Surveys").Range.Start, .Bookmarks("Endsurveys").Range.End)

RngSrc.Copy

With DocTgt

RngTgt2.Paste

End If

.Range.Fields.Update

Application.ScreenUpdating = True

I really hope someone can help me out as I just keep going round and round in circles without really getting anywhere.