With Selection .Paragraphs(1).Range.Select .CopyFormat .Paragraphs(1).Next.Range.Select .PasteFormatEnd With