Deleting a Column from a Workbook

T

Terry

We want to delete a column in a workbook without
activating the workbook. The code below is supposed to
check whether cell A1 is null. If it is, we want to delete
column A from the workbook without activating that
workbook, but can't get the syntax right. (The Test
workbook has only one workshet.)

If Workbooks("Test.xls").Range("A1") = "" Then
Workbooks("Test.xls").Columns("A").Delete
End If

Help, please.

Thanks.
 
J

Juan Pablo González

Change

Workbooks("Test.xls").Range("A1")

with

Workbooks("Test.xls").Sheets("YourSheet").Range("A1")
 
T

Terry

The second line of code does not work - the formatting is
incorrect. I get an "Error 13 - Type Mismatch." Any
suggestions on how to get the cloumn deleted?
 
J

Juan Pablo González

Workbooks("Test.xls").Sheets("YourSheet").Range("A1").EntireColumn.Delete

--
Regards

Juan Pablo González

The second line of code does not work - the formatting is
incorrect. I get an "Error 13 - Type Mismatch." Any
suggestions on how to get the cloumn deleted?
 
T

Terry

Muy Bien!
Gracias.
-----Original Message-----
Workbooks("Test.xls").Sheets("YourSheet").Range ("A1").EntireColumn.Delete

--
Regards

Juan Pablo González

The second line of code does not work - the formatting is
incorrect. I get an "Error 13 - Type Mismatch." Any
suggestions on how to get the cloumn deleted?



.
Click to expand...
 
D

Don Guillett

Gotta open
Sub delcols()
Workbooks.Open ("del.xls")
With ActiveWindow
If Range("a1") = "" Then Columns(1).Delete
End With
End Sub
 
D

Don Guillett

or if open but not active. Don't forget the .'s before range and columns

Sub delcols1() 'if open
With Workbooks("del.xls").Sheets(1)
If .Range("a1") = "" Then .Columns("A").Delete
End With
End Sub
 
Top