Union problem in Excel?

[pb1]

I wish to delete several columns on the same worksheet at one go. So Union was used to group those columns together. But Run-time error 1004 : Method ¡®Union¡¯ of object¡¯_Application¡¯ failed was returned.
Any way in getting around it please?

Option Explicit
Dim oExcel As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet
 
Sub DeleteData ()
Dim rngA As Range
 
        oWB.Activate
        oWB.Sheets(2).Select
'Autofit Col
        oWB.Sheets(2).Columns ("A:L").EntireColumn.AutoFit    
        Set rngA = oExcel.Union(Columns("F"), Columns("H"))
        rngA.EntireColumn.Delete

[Ecniv]

If the columns aren't changing then use

oWB.Sheets(2).Columns("A").entirecolumn.delete

Where A is the column.

Never heard of the union before.


Vince

[pb1]

Union is a method of the Application Object. It returns the union of two or more ranges.
The syntax is:

Application.Union(Arg1, Arg2, ...)

where Arg1, Arg2, . . . are the Range objects whose ranges we wish to join together. At least two Range objects must be specified. I succeeded using union in deleting multiple rows but not columns.
Any advice would be much appreciated.

[writelearner]

maybe stupid but why don't you just delete each column one by one

columns("A:B").delete
columns(yourcolumn).delete
 
etc

[pb1]

Union problem solved:-

Dim rngA As Range         
   Set rngA = oExcel.Union(Range("F1:F2"), Range("H1:H2"),  _
            Range("J1:J2"), Range("K1:K2"))
   rngA.EntireColumn.Delete