Yes, they are built-ins, but clearly they don't account for all built-in Styles. An error trap is exactly what I used to generate the list. What I haven't been able to figure out yet is why those particular Styles generate an error, but the other built-ins etc don't. if you're happy with an error report, try:
Code:
Private Sub CmdCopyStyle_Click()
Dim DestDoc As String, x As Long, y As Long, StrSty As String, StrList As String
For x = 0 To ListBox3.ListCount - 1
DestDoc = ListBox3.Column(0, x)
For y = ListBox2.ListCount - 1 To 0 Step -1
StrSty = ListBox2.Column(0, y)
On Error Resume Next
Application.OrganizerCopy Source:=SourceFile, Destination:=DestDoc, _
Name:=StrSty, Object:=wdOrganizerObjectStyles
If Err.Number = 4198 Then
If x = 0 Then StrList = vbCr & StrSty & StrList
ListBox2.RemoveItem (y)
End If
Err.Clear
Next y
Next x
If StrList <> "" Then MsgBox "Unable to copy the following Styles:" & StrList
End Sub
After the first pass, all the errant Styles will have been deleted from the 'Selected Styles' box and, on completion (after the error report), only the copied Styles will remain there.