Colocar borde menos grueso al codigo

[dragonfire33]

Buenos días como puedo colocar un borde más delgado a este codigo

Sub PonerBordes()
Application.ScreenUpdating = False
For x = 1 To ActiveSheet.UsedRange.Rows.Count
   For y = [Z1].Column To [BG1].Column
      Cells(x, y).BorderAround LineStyle:=xlLineStyleNone
      If Mid([Y10], 1, 2) = Mid(Cells(x, y), 1, 2) Or _
         Mid([Y10], 2, 2) = Mid(Cells(x, y), 2, 2) Or _
         Mid([Y10], 3, 2) = Mid(Cells(x, y), 3, 2) Or _
        (Mid([Y10], 1, 1) = Mid(Cells(x, y), 1, 1) And Mid([Y10], 3, 1) = Mid(Cells(x, y), 3, 1)) Or _
        (Mid([Y10], 1, 1) = Mid(Cells(x, y), 1, 1) And Mid([Y10], 4, 1) = Mid(Cells(x, y), 4, 1)) Or _
        (Mid([Y10], 2, 1) = Mid(Cells(x, y), 2, 1) And Mid([Y10], 4, 1) = Mid(Cells(x, y), 4, 1)) Then
         Cells(x, y).BorderAround ColorIndex:=5, Weight:=xlThick
      End If
   Next
Next
End Sub

 

[Joe4]

Solo cambia esta parte:

, Weight:=xlThick

a esto

, Weight:=xlThin

 

[dragonfire33]

Ese ya lo intente y no funcionó