Dim sh as worksheet, sh1 as Worksheet
Dim i as Long
worksheets.Add
set sh = Activesheet
i = 0
for each sh1 in Worksheets
if sh.Name < sh1.name then
i = i + 1
cells(i,1).Value = sh.Name
cells(i,2).Value = sh1.Range("M44").Value
end if
Next

--
Regards,
Tom Ogilvy

"Jeff Klein" <Jeff@nospam wrote in message
...
I have approx 150 sheets that have renamed for each client name. I want
to
create another sheet that lists the client names with cell M44. M44 is a
cell that shows "balance due". I need a list of each client and the
balance
due. Any help is appreciated, thank you.