after a copy and paste, I need to tidy up some formattingso I run this..Sub tidyBullets(oRange As Range) Dim oPara As Paragraph oRange.Select For Each oPara In Selection.Paragraphs If oPara.Range.ListFormat.ListType = WdListType.wdListBullet Then With oPara.Range.ParagraphFormat .LeftIndent = CentimetersToPoints(1.6) .FirstLineIndent = CentimetersToPoints(-0.8) .TabStops.ClearAll End With ElseIf oPara.Range.ListFormat.ListType = WdListType.wdListNoNumbering Then With oPara.Range.ParagraphFormat .LeftIndent = CentimetersToPoints(1.6) .FirstLineIndent = CentimetersToPoints(-0.8) .TabStops.ClearAll End With Else With oPara.Range.ParagraphFormat .LeftIndent = CentimetersToPoints(0.8) .RightIndent = CentimetersToPoints(0) .FirstLineIndent = CentimetersToPoints(-0.8) .TabStops.ClearAll .TabStops.Add 1.6, wdLeft End With End If Next End SubI can watching it stepping through the code quite happily and throw no errors, however there is no change to the formatting of the paragraphs. The document is not protected at this point