Question

I’m working with the following RegEx function in Excel 2010 and am getting the “Invalid Procedure Call or Argument” error on the last line of the function. I substituted the ActiveCell.Value for the constant (commented out). The constant did work properly, although the cell value does not.
What is causing this error to occur?
I appreciate any help in this. Thanks.

Sub SUB1()
Dim c As Variant
For Each c In Worksheets("Sheet1").Range("A1:D10").Cells
'MsgBox (c)
    If RE6(c.Value) Then
         c.Interior.ColorIndex = 7
         Else
         c.Interior.ColorIndex = 6
    End If
Next
End Sub


Sub Test()
'Const strTest As String = "qwerty123456uiops"
Dim strTest As String
strTest = ActiveCell.Value
MsgBox RE6(strTest)
End Sub


Function RE6(strData As String) As String
Dim RE As Object
Dim REMatches As Object
Set RE = CreateObject("vbscript.regexp")
With RE
    .MultiLine = False
    .Global = False
    .IgnoreCase = True
    .Pattern = "[0-9][0-9][0-9][0-9][0-9][0-9]"
End With

Set REMatches = RE.Execute(strData)
MsgBox ("REMatches.Count" & REMatches.Count)
'If Not REMatches Is Nothing Then
    If REMatches.Count <= 0 Then
    RE6 = ""
    Else
    RE6 = REMatches(0)
    End If
'Else

'End If


End Function

Answer 1

Your code appears to be aimed at testing whether a consecutive 6 digit number occurs in each cell in Sheet1 A1:D10, ie you are looking for a Boolean True/False so

1. Use a simpler pattern Re.Pattern = "[0-9]{6}"
2. Use the Regexp Test method – you don’t need a collection of matches, just to know if one (as Re.Global = False) exists

3. Return a Boolean result from your function

   Function RE6(strData As String) As Boolean
   Dim RE As Object
   Set RE = CreateObject("vbscript.regexp")
   With RE
       .MultiLine = False
       .Global = False
       .IgnoreCase = True
       .Pattern = "[0-9]{6}"
       RE6 = .Test(strData)
   End With
   End Function