Excel macro to split data into separate files | Access forum

Hi Marta, thanks for your query. You'll need to amend the following for your purposes but this is the code to dump out the activesheet as a standalone file. You'll need to loop through your agency names and problem select particular ranges and/or copy them onto fresh sheets, but the whole thing can be done invisibly. Here's the basic code:

-------

Dim mynewfilename As String
Dim myagencyname as string

myagencyname = [Your code here]

mynewfilename = "C:\" & myagencyname & ".xls"

Activesheet.Select
Activesheet.Copy

ActiveWorkbook.SaveAs Filename:=mynewfilename

ActiveWorkbook.Close

-------

Hope this helps,

Anthony