is the
Set wb = activeworkbook
what makes it not work? i tried replacing that step with
wb.Sheets("Data").Activate
but now that step is the one not working