Deleting a Column from a Workbook

[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.

 

[Juan Pablo González]

Change

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

with

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

 

[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?

 

[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?

 

[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?



.

 

[Don Guillett]

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

 

[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