What is wrong with this range syntax

SMI// · January 18th, 2011, 08:43 AM

Hi friends

A very basic problem I am confronted with toady:

Dim myRange As Range
Set myRange = Range("a:a, d:d, e:e")
Range("myRange").Select
Selection.EntireColumn.Delete

Actual report has far more columns to delete, so a marco like this would really help a lot.

Regards
Syed

JP · January 18th, 2011, 10:50 AM

In general, you don't need to select an object before manipulating it. Try this:

Code:

Dim myRange As Range
Set myRange = Range("a:a, d:d, e:e")
myRange.EntireColumn.Delete

Since "EntireColumn" is a child object of the Range object, and you set a reference to a Range, object, you can use it directly without having to first select the range. Also, since the Range object itself refers to entire columns, you can also call the Delete method directly. This would also work:

Code:

Dim myRange As Range
Set myRange = Range("a:a, d:d, e:e")
myRange.Delete