Chapter 1: Automating Spreadsheet Tasks with Macros 23 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontNone End With After the cleanup, only three statements should be left between the keywords With and End With. These statements are the settings that you actually changed in the Format Cells dialog box when you recorded this macro: With Selection.Font .Name = "Arial Narrow" .FontStyle = "Bold Italic" .Size = 10 End With 2. Locate the following two lines of code: Range("A1:A4").Select Selection.EntireRow.Insert