Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

The WithEnd With Structure

Sub withEnd()     Range("A1:A10").Font.Bold = True     Range("A1:A10").Font.Color = vbBlue     Range("A1:A10").Font.FontStyle = "Italic"     Range("A1:A10").Font.Size = 14     Range("A1:A10").Font.name = "Comic Sans Serif"          With Range("A1:A10").Font         .Bold = True         .Color = vbBlue         .FontStyle = "Italic"         .Size = 14         .name = "Comic Sans Serif"     End With End Sub