Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. Working with the Region around the Active Cell
Sub font()
    With ActiveCell.CurrentRegion.Font
        .Name = "Times New Roman"
        .Size = 12
        .Bold = False
        .Italic = False
    End With
End Sub