Try this...

Sub RedDiagonal()
With ActiveCell.Borders(xlDiagonalUp)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 3
End With
End Sub
--
HTH...

Jim Thomlinson


"Benz" wrote:

I was hoping someone can help me figure out code that will format the
selected cell with a thick-diagonal red line through it.

Thank you to anyone who helps :)