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