Cambiar la fuente y el tamaño

Cambiar la fuente y el tamaño de un rango especifico (en este caso es desde B4 a U1000) y la fuente será "times new roman" y el tamaño a 8.

Range("B4:U1000").Select
With Selection.Font
.Name = "Times New Roman"
.Size = 8 .Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Range("B4").Select