Extracting substrings using regex

Hi,

I have written this code to loop over a range with strings to extract a certain code in each string, which will be in CAPS and followed by 1 or 2 digits using regex. The problem is it is quite slow for the range I am working with. So I figured my code might be inefficient. May you kindly assist in ways I can speed it up. I have attached a sample.
Thanks

Thanks so much, Marc. Yes, its quite fast on this small range. But comparing the run time with the code you provided(0.34 sec runtime) vs mine which is like 1.5 sec.
In my sample strings, I forgot to put some where they don't have an underscore after the key substring we want, how can I solve this

Originally Posted by gringol

In my sample strings, I forgot to put some where they don't have an underscore after the key substring we want...

What do they have there... a space? a dot? a dash? something else?

Better yet, why not post a new example with more complete representative values?

Thanks I have added a new workbook with new strings

Originally Posted by gringol

Thanks I have added a new workbook with new strings

Why is GHUIKDHY67 the correct value to return from this...

C:\Users\Dell Precision 5540\Documents\1\20210525 - GHUIKDHY6721Q2.xlsm

and not GHUIKDHY6721 instead?

Originally Posted by Rick Rothstein

Why is GHUIKDHY67 the correct value to return from this...

C:\Users\Dell Precision 5540\Documents\1\20210525 - GHUIKDHY6721Q2.xlsm

and not GHUIKDHY6721 instead?

Yes it was as the regex pattern had [0-9]{0,2} to extract a max of 2 digits after the Capital letters substring

Prepare the output array variable, b in the code and dump the result at one time.
e.g

Sub cODEeXTR()

Dim PathList() As Variant, b
Dim Path As Variant
Dim str As Variant
Dim regEx As New RegExp
Dim item As Variant, Codes As MatchCollection

StartTime = Timer
Application.ScreenUpdating = False
regEx.Pattern = "[A-Z]{3,}[0-9]{0,2}"
With Sheets("sheet1")
    With .Range("c2", .Range("c" & Rows.Count).End(xlUp))
        PathList = .Value
        ReDim b(1 To UBound(PathList, 1), 1 To 1)
        For i = 1 To UBound(PathList, 1)
            Set Codes = regEx.Execute(PathList(i, 1))
            For Each item In Codes
                b(i, 1) = item
            Next
        Next
        .Columns(0).Value = b
    End With
End With
 SecondsElapsed = Format(Timer - StartTime, "0.0000")

'Notify user in seconds
  MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation
Application.ScreenUpdating = True

End Sub

Thanks so much guys for the help!