Finding duplicate values within a cell

[bcmk29]

In my spreadsheet, I have a column (D:D) with phone numbers mentioned. I would like to identify and highlight when a cell contains repeated/sequence numbers like 11111, 22222, 33333, or 123456.
Can we do this in VBA? Please advice.

Thanks.

 

[Z51]

Regex (regular expressions) is good for finding patterns in strings/values, it does have a little bit of a learning curve though.

Manually coding searches to find 111, 1111, 11111, 111111, 222, 2222, etc. would be tedious at best, and adding more conditions like sequential number patterns could quickly get out of hand.

 

[Peter_SSs]

Would something like this be any use?

Edit: I missed that you wanted vba but I'll leave this suggestion in case it might help.

22 10 29.xlsm
	A	B
1
2	12385647
3	11111	Check
4	965894
5	34567	Check
Check numbers

Cell Formulas
Range	Formula
B2:B5	B2	=IF(OR(A2&""=REPT(LEFT(A2,1),LEN(A2)),A2&""=CONCAT(SEQUENCE(LEN(A2),,LEFT(A2,1)))),"Check","")

 

[bcmk29]

Would something like this be any use?

Edit: I missed that you wanted vba but I'll leave this suggestion in case it might help.

22 10 29.xlsm
	A	B
1
2	12385647
3	11111	Check
4	965894
5	34567	Check
Check numbers

Cell Formulas
Range	Formula
B2:B5	B2	=IF(OR(A2&""=REPT(LEFT(A2,1),LEN(A2)),A2&""=CONCAT(SEQUENCE(LEN(A2),,LEFT(A2,1)))),"Check","")

Hi Peter though I wanted a VBA code this solves my purpose. Thanks

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.