como puedo cambiarle la linea a este codigo que en  vez de colorear me bordee la celda

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("hoja1").Select
    With ActiveWorkbook.Sheets("programa4cifras").Tab
        .color = 255
        .TintAndShade = 0
    End With
    Sheets("hoja2").Select
    With ActiveWorkbook.Sheets("hoja2").Tab
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = -0.249977111117893
    End With
    Sheets("hoja3").Select
    With ActiveWorkbook.Sheets("hoja3").Tab
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = -0.249977435298762
    End With
    Sheets("hoja4").Select
    With ActiveWorkbook.Sheets("hoja4").Tab
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.399975585192419
    End With
     Sheets("hoja6").Select
    With ActiveWorkbook.Sheets("hoja5").Tab
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.399975554321
End Sub

 

Hola, con la cerda seleccionada, puedes jugar con todos los bordes

 

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

 

 

como hago para que funcione con la misma idea que la primera