Hi!
All the styles mentionned in those lines bellow must exist in your list of available style. If you don't have one of the style in your list, you'll get an error 5834. Is it the one you get?
Code:
strStyles = strStyles & "Style1,Style2,Style3,Style4,Style5,"
strStyles = strStyles & "Style6,Style7,Style8,Style9,Style10,"
strStyles = strStyles & "Style11,Style12,Style13,Style14,Style15"