Apply Filter & Delete Visible Rows To Extract Data for only One Account # in Data Set

Hi All,

I download a file frequently that has data for multiple accounts. I'm trying to write a proc that will separate the data by account number and put the data for each account in its own worksheet. My approach was to copy active sheet to a new sheet apply a filter excluding all but one account and selecting and deleting all visible cells and then going back to the main worksheet and repeating for each account. What I have so far is not working. I'm getting errors on the "Rows("1:1").Delete Shift:=xlUp" line. When I comment that line out then I get an error on the next line. any help would be appreciated. Also If someone can tell me how to save each worksheet into a separate workbook that would be cool too.

Please Login or Register  to view this content.