Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim RegEx As Object
- Set RegEx = CreateObject("VBScript.RegExp")
- RegEx.Global = True
- RegEx.Pattern = strPattern
- If RegEx.Replace(objCell.Value, "") = objCell.Value Then
- RegExCheck = 0
- Else
- RegExCheck = 1
- End If
- =RegExCheck(A1,"[^A-Za-z0-9_-]")
Add Comment
Please, Sign In to add comment