delete rows in excel

[Injun]

Code:


oSelection = DirectCast(csheet.Rows("1:2"), Excel.Range)
oSelection.Delete()


How can I delete the first 2 rows in an excel worksheet?
Apprantly the above code does nothing .
Please help
thx

 

[kss444]

http://www.ozgrid.com/VBA/VBACode.htm

 

[RonRepp]

Dim XL as Object
XL=CreateObject("Excel.Application")
XL.Rows("1:2").Select
XL.Selection.Delete (Excel.XlDirection.xlUp)

I hope this helps.
...

Ron Repp

If gray hair is a sign of wisdom, then I'm a genius.