title: Range issue in Access/excel vba
body: <p>Unsure what I am doing wrong. None of the statements below generate an error but yet they don't work. I had a question earlier about borders and I thought it worked but it didn't</p>
  
  <p>Here is the code snippet</p>
  
  <pre><code>With ws
     With .Range(.Cells(startRow, startCol), .Cells(endRow, endCol))
        .Borders.LineStyle = 1
        .Borders.Weight = 4
     End With
  End With
  
  ws.Range("D1").Value = 3.14159
  
  With ws.Range("D1").Borders(9)
      .LineStyle = 1
      .Weight = 2
      .ColorIndex = 3
  End With
  
  ws.usedrange.Borders.LineStyle = 1
  ws.usedrange.Borders.Weight = 4
  ws.usedrange.Borders.Color = RGB(255, 0, 0)
  
  With ws.Range("E1:F2")
      .Value = "x"
      .Font.Bold = True
      .Borders.LineStyle = 1
  End With
  </code></pre>