Sheet tabs A-Z
Posted by Paul B on January 12, 2001 5:53 AM
Is there a way to put the sheet tabs in alphabetical order?
Posted by Duane Kennerson on January 12, 2001 11:58 AM
Dim iCount as Integer
application.screenupdating =false
iCount = sheets.count
for i = 1 to icount -1
for j = i + 1 to icount
if sheets(j).name <sheets(i).name then
sheets(j).move before:=sheets(i)
end if
next j
next i
good luck
