Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SetRange Help
Hello, I am using Access 2007 to automate Excel 2007. I am trying to
accomplish a simple sort feature in one of my workbooks, but the code appears to crash on the line .SetRange Range("A1:B" & intRow). I am still learing the 2007 Object Model, so any info on why this does not work would be greatly appreciated. P.S. This workbook may be used by some users who use Excel 2003. .Sheets("Sheet4").Select intRow = .ActiveCell.Row - 1 'getting the last row that has data .ActiveWorkbook.Worksheets("Sheet4").Sort.SortFiel ds.Clear .ActiveWorkbook.Worksheets("Sheet4").Sort.SortFiel ds.Add Key:=.Range("B1:B" & intRow) _ , SortOn:=0, Order:=2, DataOption:=0 With .ActiveWorkbook.Worksheets("Sheet4").Sort .SetRange Range("A1:B" & intRow) 'bombs here .Header = 0 .MatchCase = False .Orientation = 1 .SortMethod = 1 .Apply End With |