For Each sh In Activeworkbbok.Worksheets
sh.NAme = "Sheet" & i+1
i = i + 1
Next sh

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Senjaya" wrote in message
...
I have 286 tables which each has different worksheets name (30 character )
and contains space such as : "Zone 1 San Diego 2003_12_08 to "
and I have to change all of those worksheets into a name like sheet1
Is there any batch files to change all those files at once using ActiveX
script or any other methods?