VBA to check for active sheet then execute following code

Hi All,

Im having a little trouble with getting this code to work correctly and was wondering if someone could point me in the right direction.
Here is the code that I am using:

Please Login or Register  to view this content.

Which works great as is. Basically it sorts my data, then selects the first empty cell when the user saves the workbook.
However, now I have more than one sheet in the book, so if the user is on another sheet then saves the book he starts getting errors.
So I wanted to get the sort to only execute if Sheet1 is active, and heres what I added:

Please Login or Register  to view this content.

Which will save the book but doesnt perform the sort or cell selection after.
Any help with this would be greatly appreciated, thanks!

Try this.

Please Login or Register  to view this content.

The event handler is set up for before save, it won't ever peform anything after save.

Are you saying the sort does not happen on Sheet1 when it is the activesheet? Do you want the sort to happen on Sheet1 no matter what sheet is active?

All, just as a follow up, I was running the existing code through some testing an realized that it would be better to have the code execute only if Sheet1 was active, like Solus had asked, and if any other sheets were active instead, the workbook would just save and the sort would not be performed.
Here is the result that I ended up with:

Please Login or Register  to view this content.

Thanks again!