put an activesheet.name check at the start of the macro.