Передача XlBorderWeight в процедуру

Question

Я пытаюсь исправить не мой код. Я заметил повторяющийся код:

With selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlMedium
    .ColorIndex = xlAutomatic
End With

With selection.Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With

Сначала я написал процедуру:

Sub BorderAutomatic(border As border)
    border.LineStyle = xlContinuous
    border.Weight = xlThin
    border.ColorIndex = xlAutomatic
End Sub

BorderAutomatic (selection.Borders(xlEdgeRight))

, чтобы сократить все случаи, когда вес тонкий, теперь я хотел бы сократить случаи, когда вес средний , Для этого я добавляю следующий аргумент:

Sub BorderAutomatic(border As border, borderWeight As XlBorderWeight)
    border.LineStyle = xlContinuous
    'border.Weight = xlThin
    border.Weight = borderWeight
    border.ColorIndex = xlAutomatic
End Sub

BorderAutomatic (selection.Borders(xlEdgeRight), xlThin)

Я получаю сообщение об ошибке: «Ожидается: =»

Как мне написать это?