VBA mailings selected receiver with combobox

Welcome to the forum,
Hi, for starters take a look here https://www.techwalla.com/articles/h...-data-in-excel
Might help you, why invent the wheel if it's already there (somewhere)

I would suggest an extra column where the value is set to True (or False) when selected and then loop thought the rows where the value is true to merge.
I'll see if I can help you, probably not before tomorrow, undergoing a cataract operation this afternoon so won't be much behind my system ,)

Hi guys, I found the solution.

You let excel open the word file.

Set wordapp = CreateObject("word.Application")
       wordapp.documents.Open

"Path word file"

   wordapp.Visible = False

Then you give an IF command for the selected receiver:

   If CB_Rec.Value = "receiver 1" Then

After that you place a recorded macro for the merging and the printing:

ActiveDocument.Shapes.Range(Array("Text Box 2")).Select
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _

"Path for the selected excel list"

, ConfirmConversions:=False, _
        ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:= _
        "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=

Path for excel list, (no double quotes)

;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Jet OLEDB:Database Lockin" _
        , SQLStatement:="SELECT * FROM

`SheetName

$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
    With ActiveDocument.MailMerge
        .Destination = wdSendToPrinter
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = 1
        End With
        .Execute Pause:=False
    End With
   End If

You can choose the row for data you want to use:

I chose for receiver 1:

.Firstrecord =

1
For receiver 2 you choose:

.Firstrecord =

2

!!! My excel file contains Headers !!!

Hope I can help others with this solution for my problem.