Set myRange = ActiveDocument.Paragraphs(1).Range If myRange.Font.Name = "Times New Roman" Then myRange.Font.Name = "Arial" Else myRange.Font.Name = "Times New Roman" End If