Solved: add - when merge data on cell of column

[parscon]

 
Option Explicit
Sub RemoveSquareBrackets()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Range("G1", Range("G" & Rows.Count).End(xlUp))
If Left(c, 1) = "-" Then c = Mid(c, 2, Len(c) - 1)
If Right(c, 1) = "-" Then c = Left(c, Len(c) - 1)
Next c
Application.ScreenUpdating = True
End Sub 

THank you .