Union problem in Excel?

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?

VB Code:

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

If the columns aren't changing then use

VB Code:

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

Where A is the column.

Never heard of the union before.


Vince

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

VB Code:

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. :)

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

VB Code:

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

Union problem solved:-

VB Code:

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

:afrog: