Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select method failing
I'm trying to remove a header row in a different spreadsheet with the
following code. Everything goes OK until it gets to .Range("A1").select. It gives me an error message that says, "Select method of Range class failed." What am I missing? Dim objWkBook As Object Dim objWkSheet As Object Set objWkBook = GetObject("Z:\AgingByLocation.xls") Set objWkSheet = objWkBook.Worksheets(1) With objWkSheet .Activate .Rows(1).Delete Shift:=xlUp .Range("A1").Select End With |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select method failing
You are trying to activate a cell which is not opened...If you are looking to
select a range then try the below code which opens the workbook.. Dim objWkBook As Workbook Dim objWkSheet As Worksheet Set objWkBook = Workbooks.Open("c:\3.xls") Set objWkSheet = objWkBook.Worksheets(1) With objWkSheet .Activate .Rows(1).Delete Shift:=xlUp .Range("A1").Activate End With objWkBook.Close -- Jacob "CDM" wrote: I'm trying to remove a header row in a different spreadsheet with the following code. Everything goes OK until it gets to .Range("A1").select. It gives me an error message that says, "Select method of Range class failed." What am I missing? Dim objWkBook As Object Dim objWkSheet As Object Set objWkBook = GetObject("Z:\AgingByLocation.xls") Set objWkSheet = objWkBook.Worksheets(1) With objWkSheet .Activate .Rows(1).Delete Shift:=xlUp .Range("A1").Select End With |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy method of object failing | Excel Programming | |||
Select Method Failing | Excel Programming | |||
Publish method failing, can't understand why | Excel Programming | |||
select method of range class failing ? | Excel Programming | |||
add method of validation failing | Excel Programming |