Finding Cells that have an "X" through them.

[Fire_Chief]

I have a sheet that has several of the cell's with an X through them.
I put the X through them with the Border tool.
If it makes a difference, the X s are red and the cells have names in them.

I want to find these cells with VBA. I have tried every code I can thing of, but nothing works.
If I can find a cell, I can do what I need with it with more code.... But I can't lol
I guess I'm just not that good with code....but I am learning.

Thank You

 

[cart0250]

Try this...

    If Range("A1").Borders(xlDiagonalDown).LineStyle <> xlNone And Range("A1").Borders(xlDiagonalUp).LineStyle <> xlNone Then
        MsgBox ("X found")
    End If

 

[Fire_Chief]

Thank you so much. I would have never gotten that one
Worked great