Die Auswahl von Bereich zu gelten Grenzen - Access-VBA

Hier ist, was ich tun muss. Wählen Sie einen Bereich von Zellen, die basierend auf die Zeile und Spalte zahlen. Da es sich um eine dynamische, habe ich die Zeile und Spalte zahlen. Ich habe hardcoded Ihnen hier als ein Beispiel. Sobald ich die Palette, die ich anwenden müssen, einen dicken Rand rundherum. Ich bin uable, um den Bereich auszuwählen. Jegliche Hilfe würde sehr geschätzt werden. Ich habe einen Teil der Auswahl-code. Ich habe angegeben, wo es scheitert.

Sub setBorder()

Dim xlApp As Object
Dim wb As Object
Dim ws  As Object
Dim rng      As Object
Dim startRow         As Integer, startCol As Integer
Dim endRow           As Integer, endCol As Integer

Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False

Set wb = xlApp.Workbooks.Open("H:\Documents\Misc-Work\BU\test.xlsx")

startRow = 6
startCol = 5
endRow = 15
endCol = 5

Set ws = wb.worksheets(1)

With ws
   Set rng = .Range(.Cells(startRow, startCol), .Cells(endRow, endCol))
   rng.select -- It fails here
End With

'rng.select

With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .ColorIndex = 0
    .TintAndShade = 0
    .Weight = xlThin
End With
End Sub