Sorry I'm newbie here
Here's a code I tried to modify but I failed
Code:
Sub RemoveSpacesBeforeAfterSlash()
Dim A, I As Long, M As Object
With Cells(1).CurrentRegion.Resize(, 1)
A = .Value
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "*( / *)?"
For I = 1 To UBound(A, 1)
Leave a comment: