Switch fonts in MS Word using VBA

Sub SetCourier()
    Selection.Font.Name = "Courier New"
End Sub
Sub SetTimes()
    Selection.Font.Name = "Times New Roman"
End Sub