How to reference a table named in an input box?

Hello JoeSkittles,

If you can post a copy of your workbook, it will greatly help in answering your question.

How To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

File Manger Picture

Hello JoeSkittles,

Thanks for the workbook. I could not have made this revision with out it. Here is the revised code...

Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl+Shift+T
'
    Dim oTable As ListObject
    
    ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes).Name = _
        InputBox("What is the name of the table?")
        
    Set oTable = ActiveSheet.ListObjects(ActiveSheet.ListObjects.Count)
    oTable.TableStyle = "TableStyleMedium16"
    
    With oTable.HeaderRowRange
        .Font.Name = "Calibri"
        .Font.Size = 9
        .Font.Strikethrough = False
        .Font.Superscript = False
        .Font.Subscript = False
        .Font.OutlineFont = False
        .Font.Shadow = False
        .Font.Underline = xlUnderlineStyleNone
        .Font.ThemeColor = xlThemeColorLight1
        .Font.TintAndShade = 0
        .Font.ThemeFont = xlThemeFontMinor
    End With
    
    With oTable.HeaderRowRange
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    With oTable.DataBodyRange
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    Range("L2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    
    With Selection.Font
        .Color = -65536
        .TintAndShade = 0
    End With
    
    With Selection.Font
        .Name = "Calibri"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -65536
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    
End Sub