¿Cómo configurar la fuente de inglés, números y símbolos en celdas con VBA?

Sub cambio de fuente()

Range("A1：B10").Select

Con Selection.Font

.Name = "Calibri"

.FontStyle = "Regular"

Terminar con

End Sub