The file Formatting $2.$xlsm contains the following code for formatting some

data. This code works perfectly well, but it is quite repetitive. Rewrite it by using

as many With constructions as make sense, using apropriate indentation, and

then run your modified code to make sure it still works.

Sub Formatting$0$

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$1").$Font.Bold$=$True

ActiveWorkbook.Worksheets$("$Sheet$1").$Renge$("$A$1").$Font.Size$=14$

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$1").$HorizontalAlignment$=$xILeft

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$3$:A$6").$Font.Bold$=$True

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$3$:A$6").$Font.Italic$=$True

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$3$:A$6").$Font.Color$=$vbGreen

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$A$3$:A$6").$Insertindent$1$

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$2$:D$2").$Font.Bold$-$True

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$2$:D$2").$Font.Italic$=$True

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$2$:D$2").$Font.Color$=$vbBlue

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$2$:D$2").$HorizontalAlignment$=$xIRight

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$3$:D$6").$Font.Color$=$vbRed

ActiveWorkbook.Worksheets$("$Sheet$1").$Range$("$B$3$:D$6").$NumberFormat$="$$#$,$##$0"$