Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Select method of range class failed
I keep getting this error Run-time error '1004': Select method of Range class failed from this code at the first Range("I2").select statement. I dont see what is wrong. Please help!! Sub Import Dim strname As String strname = ActiveWorkbook.Name Workbooks.Open "C:\Macro_Practice\Sep_download.xls" ' wkbBook = Workbooks("Sep_download.xls") Workbooks("Sep_download.xls").Worksheets(1).Copy befo=Workbooks(strname).Worksheets(3) Workbooks("Sep_download.xls").Close savechanges:=True Sheets("sheet2").Select ActiveWindow.SelectedSheets.Delete Sheets("sep_download").Select Range("I2").Select ActiveCell.FormulaR1C1 = "=Trim(RC[-8])" Range("I2").Select Call GetRealLastCell Selection.AutoFill Destination:=Range(I2, RealLastRow) End Sub Sub GetRealLastCell() Dim RealLastRow As Long Dim RealLastColumn As Long Range("A1").Select On Error Resume Next RealLastRow = _ Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row RealLastColumn = _ Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column Cells(RealLastRow, RealLastColumn).Select End Sub -- sa02000 ------------------------------------------------------------------------ sa02000's Profile: http://www.excelforum.com/member.php...o&userid=27747 View this thread: http://www.excelforum.com/showthread...hreadid=473119 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Select method of range class failed | Excel Programming | |||
Select method of Range class failed - but why??? | Excel Programming | |||
select method of range class failed | Excel Programming | |||
select method of range class failed | Excel Programming | |||
select method of range class failed | Excel Programming |