thats what im missing, thanks heaps

i knew it would be something simple

Joseph

"Nigel" wrote:

You need to specify the value of scount before the loop, also the line

Cells(Counter + 82, 2).Value

Is not fully referenced, so as you change the sheet, you are referencing the
Activesheet with the above statement, that maybe what you want ? If not add
the name of the sheet with the data e.g.

Sheets("Table").Cells(Counter + 82, 2).Value

--

Regards,
Nigel




"Joseph Atie" wrote in message
...
For counter = 1 To scount
sstring = Cells(counter + 82, 2).Value
Sheets(sstring).Select
ActiveSheet.PageSetup.Zoom = 75
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next counter

the above section of code works for the first iteration of the loop on the
second iteration it fails to give sstring a value.

is there something wrong with the code?

p.s the aim of the code is to print off a number of sheets