PDA

View Full Version : [SOLVED] Format Current Selection as a Table



nirvehex
09-04-2014, 09:34 AM
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
09-04-2014, 10:27 AM
Got it!



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

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