loop through all files in a folder divide each worksheet into workbooks by date

[rjmdc]

600+ 1 page workbooks in a folder
sheet 1 (i tried worksheet.name = ky) has many entries all with different dates
how can i loop through each workbook
divide the new workbook into as many worksheets (tabs) as months (column E)
please advise
also if i run the macro again will i need it to override and update the workbooks - NOT create new ones unless a name is missing

 

[rjmdc]

hi
i got the first part i divided master into many 1 sheet workbooks
how do i fix this so that:
1- master remains visible - it filters it all out
2- more important, i need to now loop through all these newly created workbooks to divide them into workbooks with tabs filtered by column E (date) and name the tabs by date
can anyone help me?

Sub Split_to_Participants()
  Dim sh As Worksheet, c As Range, ky As Variant, wb As Workbook, wPath As String, lr As Long
  Application.SheetsInNewWorkbook = 1
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Set sh = ActiveSheet
  wPath = "M:\all\FI Payments\Single Participant Payment Worksheets\"
  If sh.AutoFilterMode Then sh.AutoFilterMode = False
  lr = sh.Range("A" & Rows.Count).End(xlUp).Row
  With CreateObject("scripting.dictionary")
    For Each c In sh.Range("B2:B" & lr)
      .Item(c.Value) = Empty
    Next
    For Each ky In .Keys
      sh.Range("B1").AutoFilter 2, ky
      Set wb = Workbooks.Add
      sh.AutoFilter.Range.EntireRow.Copy Range("A1")
      wb.SaveAs ky
      Worksheet(1).Name = ky
      wb.Close False
    Next
  End With
  sh.ShowAllData