Hi Shelley
First select first line of text with Body Text and then use Select dropdown text with similar formatting and change to Body1.
Then select all your text and run your macro - it seems to work okay.

It worked for me.

Janine