Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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