Hi All,

I know this is a simple one, but i've been trying to figure out how to
delete the next ten rows from the activecell, using a minimum amount of
coding. I.e. in 1 line.
The delete method should shift lines up.

I've tried stuff like : Rows.[R:R[10]].Delete thinking of using the R1C1
format, but that doesn't work

Can anyone give a few hints?

Cheers,
Al.