Friday, 16 January 2015

Changing the Font Family


Sub FontFamily()

 

Range("a1:a5").Select

 

With Selection.Font

 

.Size = 10

.Color = vbRed

.Name = "Tahoma"

.Bold = True

.Italic = True

.Underline = xlUnderlineStyleNone

.Strikethrough = True

 

End With

 

Selection.Interior.ColorIndex = 4

 

Range("a1").Select

 

End Sub

No comments:

Post a Comment