The purpose of the If statement is to avoid the macro erroring if you didn't already have a shape selected. Putting your extra line down there will throw an error if that is the case since there won't be a first object when there are no objects.

It would be better to include that line just before the End If line
aShp.Delete

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia