Formatting outline of cells

I have the following code to copy and paste from one workbook/sheet to another. Once i paste the value to the sheet i want to "underline" the entire row .......... any ideas?

Workbooks(Roster_InputFilename).Worksheets(Roster_InputFile_Sheet).Range(add_row & ":" & add_row).Copy _
    Destination:=Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row)

Hi, Perhaps something like this:-

With Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 1
End With

Regards Mick

something like this is exactly what i am looking for

BUT

This code gives me an error.............

I took the previous posters suggestion and this is what i came up with

Workbooks(Roster_InputFilename).Worksheets(Roster_InputFile_Sheet).Range(add_row & ":" & add_row).Copy _
    Destination:=Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row)
    
Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row).Select
        With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With

Is this the best way?

Apparently the code i thought worked..........DOES NOT.

It works as long as the sheet is selected that i want to underline a row in. If a different sheet is selected prior to using the code then the ".select" has n error.

can any one help?

Here is the fix i found.........i think this works:

Workbooks(Roster_InputFilename).Worksheets(Roster_InputFile_Sheet).Range(add_row & ":" & add_row).Copy _
    Destination:=Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row)
    
Application.Goto Workbooks(Gradebook_Filename).Worksheets(Gradebook_Sht_Nm_Roster).Range(Rster_lst_row & ":" & Rster_lst_row)
        With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
        End With