Sub FixCommas()
Application.ScreenUpdating = False
' Get rid of multiple commas
Dim myColumn As Byte
myColumn = ActiveCell.Column
Columns(myColumn).Replace What:=",,", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
' Get rid if commas at the beginning and end
Dim i As Long
For i = 1 To 65536
If Left(Cells(i, myColumn), 1) = "," Then
Cells(i, myColumn) = Right(Cells(i, myColumn), Len(Cells(i, myColumn)) - 1)
End If
If Right(Cells(i, myColumn), 1) = "," Then
Cells(i, myColumn) = Left(Cells(i, myColumn), Len(Cells(i, myColumn)) - 1)
End If
Next i
Application.ScreenUpdating = True
End Sub