Delete columns of a cell range
 

This has to be dead simple but I can't find the answer in HELP anywhere. In a
macro I have the following code:

Range("last.property").Select
ActiveCell.Offset(0, -1).Select
Range(ActiveCell, "H29").Select
SendKeys "^ " 'selects the columns of the cell range
Selection.Delete Shift:=xlToLeft

What I want to do is delete all the columns from "H" to the one before the
column that has the cell "last.property" in it (its column location is
variable)

The problem is that instead of deleting the columns it deletes only the cell
range, I guess because they are still active. How do I get it to select only
the columns so that they can be deleted?
Thanks and regards, Brett

Delete columns of a cell range
 

Hi Brettjg,

Range("last.property").Select
ActiveCell.Offset(0, -1).Select
Range(ActiveCell, "H29").Select
SendKeys "^ " 'selects the columns of the cell range
Selection.Delete Shift:=xlToLeft


like this:

Range(Range("last.property").Offset(,-1),Range("H29")).EntireColumn.Delet
e


Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com

Delete columns of a cell range
 

Hi Jan

Thankyou for that (very elegant and brief code). In the interim I had
actually done something very similar, but the Sendkeys command was stuffing
things up - it was always selecting an entire column after it ran. Works
perfectly with your code. Thanks & regards, Brett

"Jan Karel Pieterse" wrote:

Hi Brettjg,

Range("last.property").Select
ActiveCell.Offset(0, -1).Select
Range(ActiveCell, "H29").Select
SendKeys "^ " 'selects the columns of the cell range
Selection.Delete Shift:=xlToLeft


like this:

Range(Range("last.property").Offset(,-1),Range("H29")).EntireColumn.Delet
e


Regards,

Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com
Member of:
Professional Office Developer Association
www.proofficedev.com