Expanding this Macro to include any number of columns...

[NeilATaylor]

Sheets("Pivot Table").Select
Range("a1").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveWorkbook.Names.Add Name:="PivotTable", RefersToR1C1:=Selection
Range("a1").Select

How do I modify this to highlight and name ann number of columns, as well as rows, and name as range "PivotTable"?

Thanks!

 

[Norie]

Perhaps this.

Sheets("Pivot Table").Range("A1").CurrentRegion.Name = "PivotTable"

 

[NeilATaylor]

Your the only puffin I know who can do macros. awesome.