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