VBA borderaround question

[Zanatos]

I had used borderaround to make the border of a section of cells the same to send to a printable sheet, and upon closing it set it to get the border back to normal (code shown)



Private Sub CommandButton3_Click() ' Preview Whole Sheet
Application.ScreenUpdating = False ' Turn monitor refresh off
Range("DetailsMS").Select
Range("A2:K37").BorderAround Weight:=xlThin
ActiveSheet.PageSetup.PrintArea = "DetailsMS"
With ActiveSheet.PageSetup

(code here deleted for thread.. not important to question)

End With
ActiveWindow.SelectedSheets.PrintPreview
Range("A2:K37").BorderAround Weight:=xlMedium
Columns("A:A").Select
Range("B6").Activate
Application.ScreenUpdating = True ' Turn monitor refresh on


Anyways, when I change the back the border, I only want three sides to be changed, the right hand side of border needs to stay at the thin weight, is there a command that can change just one side of border?

Thanks

 

[Makrini]

With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With

should do the trick

 

[lenze]

After the borders are set to medium. Change the RightHand edge back to thin

Range("A2:K37").Borders(xlEdgeRight) Weight:=xlThin

lenze

 

[Zanatos]

Thanks for the help guys, Makrini, the code worked perfect. Lenze, whenever I was trying yours (liked the fact that it was short) the word 'Weight' was highlighting giving it an error, no big deal just thought I would say something for someone else who may read this.

Thanks again!

 

[Scott Huish]

Range("A2:K37").Borders(xlEdgeRight).Weight = xlThin