With oRng.Find .Font.StrikeThrough = True Do While .Execute oRng.Text = "" oRng.Collapse 0 Loop End With