Guest User

Untitled

a guest
Feb 22nd, 2018
71
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.17 KB | None | 0 0
  1. Sub NoRegex()
  2. Dim r As Range
  3.  
  4. Set r = Columns(1).SpecialCells(2)
  5.  
  6. r.Replace what:="(", replacement:=""
  7. r.Replace what:=")", replacement:="-"
  8. End Sub
Add Comment
Please, Sign In to add comment