Sub font() With ActiveCell.CurrentRegion.Font .Name = "Times New Roman" .Size = 12 .Bold = False .Italic = False End With End Sub