For problem 1, you might try changing:
toCase oCell.Range.Style
Case oCell.Range.Paragraphs.First.Style
For problem 2, make sure the new Styles have the correct alignment.
For problem 1, you might try changing:
toCase oCell.Range.Style
Case oCell.Range.Paragraphs.First.Style
For problem 2, make sure the new Styles have the correct alignment.
Last edited by macropod; 10-07-2024 at 02:24 PM.
Cheers
Paul Edstein
[Fmr MS MVP - Word]