Trouble formatting my column headers

[VRM]

Hi Folks,
I am still a novice. Working with Excel 2013.
The debugger states that I have problems with Range("Table27[[#Headers],[KHub Project Completeness]]").Select
Here is my code:

    Range("D:E,G:G").Select
    Range("G1").Activate
    Selection.Delete Shift:=xlToLeft
    Range("A1").Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$J$382"), , xlYes).Name = _
        "Table27"
      ActiveSheet.ListObjects("Table27").TableStyle = "TableStyleLight21"
    Columns("A:J").Select
    Selection.Columns.AutoFit
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("Table27[[#Headers],[KHub Project Completeness]]").Select
    ActiveCell.FormulaR1C1 = "KHub Project " & Chr(10) & "Completeness"
    Range("Table27[[#Headers],[Proposal Document ""Pass""]]").Select
    ActiveCell.FormulaR1C1 = "Has Proposal " & Chr(10) & "Document"
    Range("Table27[[#Headers],[Project Document ""Pass""]]").Select
    ActiveCell.FormulaR1C1 = "Has Project " & Chr(10) & "Document"
    Range("Table27[[#Headers],[Has a Project Description]]").Select
    ActiveCell.FormulaR1C1 = "Has a Project " & Chr(10) & "Description"
    Range("Table27[[#Headers],[Tag Status]]").Select
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 5
    Range("Table27[[#Headers],[Abt Organization]]").Select
    ActiveCell.FormulaR1C1 = "Abt " & Chr(10) & "Organization"
    Columns("J:J").Select
    Selection.ColumnWidth = 14
    Columns("H:H").Select
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.ColumnWidth = 70
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("C:G").Select
    Selection.ColumnWidth = 16
    Columns("C:C").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 13434879
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Your assistance is appreciated. Thanks.

 

[GraH]

You can't put formula in a table header and that seems to be what you are doing.

 

[braindiesel]

Quick guess...
Edit your headers BEFORE you make the table... see if that works.
also, you can always remove scroll lines from your code.
Anything like this
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
is deletable

 

[Fluff]

Try it like

Range("Table27[[#Headers],[KHub Project Completeness]]").Value = "KHub Project " & Chr(10) & "Completeness"

 

[VRM]

Hi Folks,
Editing the headers before making the table worked.
Thank you.

 

[braindiesel]

Glad to hear it. Thanks for letting us know