ActiveCell.Address Within Range VBA

Question

I would like to delete all the rows from Cell "A1" to the "ActiveCell.Address"

Tried this code:

Range(" A1:ActiveCell.Address").Delete Shift:=xlUp

But I'm getting an error on this (runtime error 1004).

Isn't it possible to refer to the ActiveCell's address within a range?

If so, is there an alternative?

Is my code incorrect?

Thanks in Advance.

Tom · Accepted Answer · 2015-10-20 09:59:52Z

1

In your code you aren't evaluating the ActiveCell.Address as you've put it inside the string. Try with:

Range("A1:" & ActiveCell.Address).Delete Shift:=xlUp

Also this will only delete the cells between A1 and the ActiveCell. To delete the rows use:

Range("A1:" & ActiveCell.Address).EntireRow.Delete Shift:=xlUp

answered Oct 20, 2015 at 9:59

Tom

9,9184 gold badges34 silver badges51 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Cornelis Over a year ago

Thanks a lot, your first line {Range("A1:" & ActiveCell.Address).Delete Shift:=xlUp} solved my problem perfectly! Your secend row wasn't neccesery for me because (at this stage of the code, at this particular sheet) I only have values/text is the A Column. (I should have mentioned that in my question). Thanks for reminding though!

Rory · Accepted Answer · 2015-10-20 10:02:04Z

0

You don't even need the address for this:

Range("A1", ActiveCell).Delete Shift:=xlUp

will suffice.

answered Oct 20, 2015 at 10:02

Rory

34.2k5 gold badges40 silver badges42 bronze badges

Collectives™ on Stack Overflow

ActiveCell.Address Within Range VBA

2 Answers 2

1 Comment

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

Comments

Your Answer

Sign up or log in

Post as a guest

Related