Excel makro

Jeg vil i excel\"2000\" lave en makro der alt efter hvilken celle jeg står i markerer og understreger hele den tilhørende række.

Her er mit forslag som ikke virker er der nogen der ved hvordan det ellers skal lave

:)

LinieNR = ActiveCell.Row

x = LinieNR

   
    Rows(\"x\").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone

Jeg får meddelelsen:
Application-defined or object-defined error

mvh tavlen