VBA: how to remove borders

[codesmith]

Hey all, trying to find a way to remove borders with the cells i have selected. Code so far:

    Worksheets("Agent Summary").range("A6:AA" & xlLastRow("Agent Summary") + 5).Select
    Selection.ClearContents
    Selection.Orientation = 0
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Interior.ColorIndex = xlNone
    Selection.Font.Bold = False

But it's not working. Thanks in advance.

 

[sbeatton]

You haven't defined xlLastRow. Refer to http://www.vbaexpress.com/kb/getarticle.php?kb_id=417 for an example.

 

[codesmith]

Sorry, xlLastRow() is a function that I have borrowed from the URL you mentioned. It returns the appropriate number for my purposes.

 

[jindon]

Worksheets("Agent Summary").range("A6:AA" & xlLastRow("Agent Summary") + 5).Clear

?

 

[codesmith]

Jindon, thank you so much matey, I knew there was a statement that would return a cell back to its default!