Generate multiple files from the access based on the count of records (1 Viewer)

'export data to excel in various tabs using a max record count
'the table has a field [MARK] that is used to mark the records that have been sent. true= sent

'qsTopUmMarked = select query with top 400 where [MARK]=false
'quMarkTopRecs = update query to mark top 400 where [MARK]=false to TRUE  ,so they dont show anymore.

sub ExportXL2Sheets()
dim i as integer
dim sFile as string, sTab as string
dim lCount as long
const kMAXrecs = 400

docmd.setwarnings false

sFile = "c:\folder\DataExport" & format(date(),"yymmdd-hhnn") & ".xls"
lCount = Dcount("*","qsTopUnMarked")

i = 0
while lCount > 0
     i = i + 1
     sTab = "tab-" & i
     DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "qsTopUnMarked", sFile, True, sTab
     docmd.openquery "quMarkTopRecs"   'mark those sent

     lCount = Dcount("*","qsTopUnMarked")
wend 
docmd.setwarnings true
end sub