VBA to compare months in dates

[EchoD]

I'm trying to make a macro that checks every cell with data in row A, compares it to cell A1, and highlights it if their month doesn't match.
Issue is, the dates in these cells all follow the DD/MM/YYYY format. 01/08/2021, for example. And I don't know if the Date calls work with them, or how to approach this in the first place.

I've checked every thread I could, made a junction of everything useful I've found, and I've gotten this far:

Sub Test()

     Dim AMonth As Integer
     AMonth = Month(Cells(2, 1).Value)
     Dim lRow As Long, Cel As Range, Data As Range, Brange As Range, BMonth As Integer
     BMonth = ?
     With ActiveSheet
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row
        Set Data = .Range("A1:A2" & lRow)
        For Each Cel In Data
                If Not BMonth = AMonth Then
                    If Not Brange Is Nothing Then Set Brange = Union(Brange, Cel) Else Set Brange = Cel
                End If
        Next Cel
        Data.Interior.Color = xlNone
        If Not Brange Is Nothing Then Brange.Interior.Color = RGB(255, 192, 0)
     End With

End Sub

Any help is appreciated!

 

[Marc L]

the dates in these cells all follow the DD/MM/YYYY format. 01/08/2021

So these cells are real date (aka numeric values) or just text ?​

 

[EchoD]

So these cells are real date (aka numeric values) or just text ?​

I don't know how to answer that. They're formatted under the Date category, but they're just dd-mm-yyyy written in a field. They're supposed to be real dates, yeah.
It might not change anything, but I forgot to mention the dates aren't separated by slashes, but lines. dd-mm-yyyy

 

[Marc L]

​

If the cells are dates rather than texts so you can use the Month function whatever in a cell formula or under VBA …​

 

[Marc L]

For further help attach a worksheet via this forum tool XL2BB or link your workbook on a files host website like Dropbox …​

 

[EchoD]

​

If the cells are dates rather than texts so you can use the Month function whatever in a cell formula or under VBA …​

It should work, but I've tried a million combinations and nothing's working.
I've attached a picture of my sheet. In this case, running the macro should highlight A3 and A5, but because they're different months, not days or years. I genuinely can't wrap my head around what I might be doing wrong.

 

[Marc L]

​

Use Month VBA function for each date in order to compare them …​

 

[Marc L]

​

Another way without any VBA procedure : via the Excel conditional formatting with an easy formula …​