Automatically adding a space just before a bracket

Hi,

I have a list in which there is a absence of a single space just before bracket with which I cannot use function with some other speadsheet.I have shown a data in B column and the output/result in the same worksheet in D column.

I hope some one resolve this issue of adding a single space just before the bracket.

Or use Find & Replace to replace "(" with " (".

(without the quotes!)

BSB

Would prefer code rather than formula

Sub test()
    [b5:b1000] = [index(trim(substitute(b5:b1000,"("," (")),,)]
End Sub

Use the macro recorder to record one of the suggestions!

Formula:

Sub Macro1()

    ThisWorkbook.Sheets("Sheet1").Columns("B:B").Replace What:="(", Replacement:=" ("

End Sub

BSB

Thanx all of you for your kind help in resolving the issue.