set XL = CreateObject("Excel.Application")
set XL_WB = XL.Application.Workbooks.Open(Server.MapPath(EXCELPath))
'*** ｾﾙの罫線を引く ***
With XL_WB.ActiveSheet.Range("A9:R9").Borders(xlBottom)
.LineStyle = xlContinuous
End With

お願いします。教えてください。
上記の方法でエクセルのシートに線を引こうとしていますが、上手くいきません。
Borders（）の引数が悪いと思うのですが、誰かご存知の方いますか？