Sub GetSheetNames()

set NewBk = workbooks("Book1.xls")

with NewBk
RowCount = 1
for each sht in .sheets
if ucase(sht.name) < ucase("A") then
Sheets("A").Range("A" & RowCount) = sht.name
RowCount = RowCount + 1
end if
next Sht
end with

end Sub


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=159804

Microsoft Office Help