Macro to remove brackets

inarbeth Use

Dim oRng As Range
Set oRng = Selection.Range
With oRng
    .Start = ActiveDocument.Range.Start
    .Start = .Start + InStrRev(.Text, "(") - 1
    .End = ActiveDocument.Range.End
    .End = .Start + InStr(.Text, ")")
    .Characters(1).Delete
    .Characters(.Characters.Count).Delete
    .Select
End With