VBA - naming columns as ranges using row 1 labels

[IanWallbridge]

Hi all,


I've often used the following two lines of VBA to name column ranges based on text labels in the first row of a worksheet, and this has always been really useful when manipulating data.

Set rangeToName = Worksheets("Sheet1").Range("A:BZ")
rangeToName.CreateNames Top:=True, Left:=False, Bottom:=False, Right:=False

However, in my latest code I need to completely delete some columns, but have realised that - by default - the named ranges start in row 2 and don't include the top (labelled) row.


Can this code be tweaked with some sort of offset so that the label is included? I've tried setting the range in the first line to include row numbers, but this doesn't make any difference.


Hope someone can advise..

 

[Fluff]

If you want to delete the entire column use

   Range("aname").EntireColumn.Delete

 

[IanWallbridge]

That's brilliant, thanks so much.

 

[Fluff]

You're welcome & thanks for the feedback