vba cell all borders
' set "All Boarders" around a range
ActiveSheet.Range("A1:C3").Borders.LineStyle = xlContinuousvba cell all borders
' set "All Boarders" around a range
ActiveSheet.Range("A1:C3").Borders.LineStyle = xlContinuousexcel vba borders
Dim wksWorksheet As Worksheet, rRange As Range
Set wksWorksheet = ThisWorkbook.Worksheets(1)
Set rRange = wksWorksheet.Range("A1:D10")
' All borders
With rRange.Borders
.LineStyle = xlContinuous
.Color = vbRed
.Weight = xlThin
End With
' Outside borders
rRange.BorderAround xlContinuous, xlMedium, xlColorIndexAutomatic
' Inside
With rRange.Borders.Item(xlInsideHorizontal)
.ColorIndex = 5
.LineStyle = xlContinuous
.Weight = xlThin
End WithCopyright © 2021 Codeinu
Forgot your account's password or having trouble logging into your Account? Don't worry, we'll help you to get back your account. Enter your email address and we'll send you a recovery link to reset your password. If you are experiencing problems resetting your password contact us
