Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Function RegExCheck(objCell As Range)
- Dim strPattern As String
- strPattern = "[^A-Za-z0-9_-]"
- If RegEx.Replace(objCell.Value, "") = objCell.Value Then
- RegExCheck = 0
- Else
- RegExCheck = 1
- End If
Advertisement
Add Comment
Please, Sign In to add comment
