Hi Macropod, many thanks for your reply - I found out why it was creating a bug for the style - I had not created a new Schedule Level 8 style which I've now done and the code is working. I have noticed though that in the Define new Multilevel List dialog box all the styles are set to Aligned at: 0" but in the Style Pane they show the correct indent for each style - do I need to add something to the code for the Define new Multilevel List Aligned at: to update also?

Apologies for missing the .Font.Bold = False line which I've now added to the Schedule Level codes but this did not work in my Heading code, it removed the bold from the actual heading e.g. 1. Definitions - the number should not be bold but Definitions should be bold but .Font.Bold = Choose(i, 0, 0, 0, 0, 0, 0, 0) seems to work correctly.

Image.PNG