Visual Basic - Bordes en Excel

Hola amigos, tengo unos reportes que los exporto a Excel, pero ahora me estan pidiendo que esos reportes salgan con bordes para que se vea mas ordenado, cuestión de estética, saben como poder hacerlo, alguien me puede dar una mano?, asi como tambien dar colores a una celda. Gracias x sus respuestas.

Aqui tienes un ejemplo:
Private Sub Command2_Click()
Dim ApExcel As Excel.Application
Set ApExcel = CreateObject("Excel.application")

ApExcel.Workbooks.Add
With ApExcel
.Cells(1, 1) = "Prueba"
.Cells(1, 2) = "Prueba2"
.Cells(2, 1) = "Prueba3"
.Cells(2, 2) = "Prueba4"
.Range("A1:B10").Font.Color = vbRed 'Color de Letra
.Range("A1:B10").HorizontalAlignment = xlHAlignCenter 'Centrado Hor.
.Range("A1:B10").VerticalAlignment = xlHAlignCenter 'Centrado Vert.
.Range("A1:B10").Font.Name = "Tahoma" 'Nombre Letra
.Range("A1:B10").Font.Size = 11 'Tamaño
.Range("A1:B10").Font.Bold = True 'Negrita
.Range("A1:B10").Font.Italic = True 'Cursiva
.Range("A1:B10").Interior.Color = vbYellow 'Color de Relleno
'Poner Border
'Tipos de Borde: XlLineStyle: xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot o xlLineStyleNone
.Range("A1:B10").Borders.LineStyle = xlContinuous
End With
With ApExcel.Range("A1:B10")
.HorizontalAlignment = xlHAlignLeft
.VerticalAlignment = xlHAlignCenter
.WrapText = True 'Ajustar Celda al Tamaña del Texto
End With
ApExcel.AlertBeforeOverwriting = False
ApExcel.ActiveWorkbook.SaveAs "C:\Prueba.xls"
ApExcel.Visible = True
Set ApExcel = Nothing
End Sub

Bueno supongo q sabes lo de las variables y todo eso
Hoja.Range("A1:B10").Borders.LineStyle = 1 'con esta instruccion se imprimen los bordes de las celdas el numero 1 es el
estilo del borde