How to Format Border Styles, Font Styles in Excel using VBA Macro

Excel VBA Macro To Change Border Styles
Sub BorderStyles()
'Style1: Selection.Borders.LineStyle = xlContinuous

'Style2: Selection.Borders.LineStyle = xlDouble
End Sub
'Macro To Change Font Styles
Sub FontFormats()
With Selection.Font
.Name = "Arial"
.Size = 12
.Italic = True
.ColorIndex = 10
.Bold = True
.Underline = True
End With
End Sub

Thanks,Tamatam