Hi guys!

I need some help with setting up vba that would insert a table with headers, with the name of current time and most importantly range of the selected cells.

Thanks for any help.
Anton.

Have you tried the macro recorder?

If you run into any issues, post back with the code and expected
results.


Gord


On Sun, 29 Jan 2012 18:55:29 +0000, antik888
wrote:


Hi guys!

I need some help with setting up vba that would insert a table with
headers, with the name of current time and most importantly range of the
selected cells.

Thanks for any help.
Anton.

Return the range of selected cells:

Selection.Address

Return the range of selected cells:

Selection.Address

Will return a string with the selected area address

The code looks like this

But I need to change the name of the table to current date or time. How would it look like?

ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A2"), , xlYes).Name = _
Format(Now(),"yyyy/mm/dd")

Like this:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A2"), , xlYes).Name = _
Format(Now(),"yyy/mm/dd")

Like this:

ActiveSheet.ListObjects.Add(xlSrcRange, Range("A1:A2"), , xlYes).Name = _
Format(Now(),"yyy/mm/dd")