Chris,

You can do something like

Dim WS As Worksheet
For Each WS In Worksheets
WS.Cells.....
Next WS

or

Dim N As Long
Dim WS As Worksheet
For N = 1 To 53
Set WS = Worksheets("Week" & Format(N,"#0")
WS.Cells....
Next N

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com


"Chris Strug" wrote in message
...
Hi,

Probably a simple one but I can't seem to get the correct syntax.

I have a workbook containing a worksheet for every week of the year. Each
worksheet needs a degree of formatting that I don't want to do by hand -
for
example, print setup.

What I'd like to do is to create a macro that will cycle through every
worksheet performing the commands I'd like.

For example,

for i = 1 to 53
worksheets("Week" & format(i,"#0")).select
worksheets.cells...
.
.
.
next i

For the life of me I can't get the right syntax. Can someone please point
me
in the right direction.

Kind thanks

Chris Strug.

"Chip Pearson" wrote in message
...
Chris,

You can do something like

Dim WS As Worksheet
For Each WS In Worksheets
WS.Cells.....
Next WS

or

Dim N As Long
Dim WS As Worksheet
For N = 1 To 53
Set WS = Worksheets("Week" & Format(N,"#0")
WS.Cells....
Next N

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
www.cpearson.com



Chip,

Many thanks. I can never get my head around collections of objects - pity
they seem so useful!

Thanks again

CS