I have one macro with:

With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With

When i run the macro, i get the error: "Run-time error '438': Object doesn't
support this property or method". When I click "Debug", the line with
".TintAndShade" is highlighted.

Anyone can help me to solve this error?

Thanks,

Jair