Thanks to all of you I learned a lot! For my purposes this worked:

Dim i As Long
For i = 1 To 26
Sheets(i).Name = Sheets(i).Range("a1").Value
Next i

thanx again

"Gord Dibben" wrote:

Jim

Are you in B.C.?


Gord

On Tue, 6 Mar 2007 14:01:18 -0800, Jim Thomlinson
wrote:

Look... Gord is Fancy too... It must be a British Columbia thing. Perhaps
something in the salt air... <bg