removing punctuation macro

Is there any macro.. to remove ;/, in the words in the cell
I have total 2000 row words

i want a macro.. yes.. i did.. but it is giving incorrect..

Originally Posted by dorabajji

i want a macro.. yes.. i did.. but it is giving incorrect..

Then the example of your data is necessary.

"in the words in the cell" means to me that you have multiple words in a cell separated by a space and that each word might have one of these characters.

Sub Maybe()
Dim a, b, i As Long, ii As Long, j As Long, c As Range
Application.ScreenUpdating = False
b = Array(",", ":", "/", ";", """", "'")    '<---- Characters to be replaced by ""
    For Each c In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        a = Split(c, " ")
            For i = LBound(a) To UBound(a)
                For j = LBound(b) To UBound(b)
                    a(i) = Replace(a(i), b(j), "")
                Next j
            Next i
        For ii = LBound(a) To UBound(a)
            c.Offset(, 1).Value = c.Offset(, 1).Value & a(ii) & " "
        Next ii
    c.Offset(, 1).Value = Left(c.Offset(, 1), Len(c.Offset(, 1)) - 1)
    Next c
Application.ScreenUpdating = True
End Sub