VBA to bold all dates within a single cell

[Candyman8019]

Hi all,

I've been struggling to come up with code to bold all dates within a single cell.

My data looks like this:

In this scenario, three dates would be bolded and the rest of the text in the cell would not be.

Any thoughts on how to do this?

 

[Georgiboy]

The below should work for both:

Sub test()
    Dim rCell As Range
    Dim regEx As Object, regMatches As Object, regMatch As Object
    
    For Each rCell In Range("A1:A3")
        Set regEx = CreateObject("VBScript.RegExp")
        With regEx
            .Global = True
            .IgnoreCase = True
            .Pattern = "([A-Za-z]{3} \d{1,2}, \d{4})"
            Set regMatches = .Execute(rCell.Value)
        End With
        For Each regMatch In regMatches
            With regMatch
                rCell.Characters(.FirstIndex + 1, Len(.Value)).Font.Bold = True
            End With
        Next regMatch
    Next rCell
End Sub