Hi Marrick,
Try:
Code:
Private Sub CmdCopyStyle_Click()
Dim DestDoc As String, x As Long, y As Long
For x = 0 To ListBox3.listcount - 1
DestDoc = ListBox3.Column(0, x)
For y = 0 To ListBox2.listcount - 1
Application.OrganizerCopy Source:=SourceFile, Destination:=DestDoc, _
Name:=ListBox2.Column(0, y), Object:=wdOrganizerObjectStyles
Next y
Next x
End Sub