Seeking to select multiple cells in vba - stumped

[auto.pilot]

I have the following simple bit of code. The first line selects a cell in Column A, then underlines it. I'd like to expand this code so that the range selected is columns A:Z. No matter what I try, nothing has worked. Can someone please offer a solution to this seemingly simple problem?

Thanks in advance.

Jim

  Cells(aArea.Row + aArea.Rows.Count, 1).Select
    
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

 

[Tetra201]

This?

Range(Cells(aArea.Row + aArea.Rows.Count, 1),Cells(aArea.Row + aArea.Rows.Count, 26)).Select

 

[auto.pilot]

This?

Range(Cells(aArea.Row + aArea.Rows.Count, 1),Cells(aArea.Row + aArea.Rows.Count, 26)).Select

Yes! perfect. I was not aware that Range needed to be at the front of the statement.

Thanks

Jim

 

[RoryA]

You can also use Resize:

Cells(aArea.Row + aArea.Rows.Count, 1).Resize(, 26).Select

 

[auto.pilot]

You can also use Resize:

Cells(aArea.Row + aArea.Rows.Count, 1).Resize(, 26).Select

Excellent! Thank you

Jim