Sub calibrifont1() ActiveDocument.range.Font.Name = "Calibri" ActiveDocument.range.Font.Size = 12.5 lbl_Exit: Exit Sub End Sub