Format Current Selection as a Table

[nirvehex]

Hi,

I'm trying to format the current selection as Table2.

My code:

Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$CP$52"), , xlYes).Name = _
        "Table2"

How do I get rid of that A1:CP52 range and just do current selection?

Thanks.

[nirvehex]

Got it!

Dim rng As Range
Dim loc As String
loc = Selection.Address

ActiveSheet.ListObjects.Add(xlSrcRange, Range(loc), , xlYes).Name = _
"Table2"