How to delete active column?

Posted by Chris on January 21, 2002 7:32 AM

I'm trying to write a macro that deletes the column that the cursor is currently in.

My code is as follows:
Range("E1").Select
For X = 1 To 30
ActiveCell.Offset(O, 1).Select
If ActiveCell = ActiveCell.Offset(0, -1) Then

???? Here is where I want to say delete the active column if the condition holds true
End If

Next X

thanks very much!

Posted by Juan Pablo G. on January 21, 2002 7:43 AM

To delete the ActiveColumn just use:

ActiveCell.EntireColumn.Delete

Juan Pablo G.

Posted by Chris on January 21, 2002 7:45 AM

thanks very much juan