Jim,

Thanks so much for helping with that. I applied it, made a few changes
and it works beautifully.

Again, thanks!'

Jim Thomlinson wrote:
It is doable but it requires a macro soemthing like this...

sub PrintStores
dim rng as range
dim rngStores as range

with Sheets("sheet1") 'sheet with list of store numbers to print
'Traverses cells A1 through A??
set rngStores = .Range(.range("A1"), .cells(rows.count, "A").end(xlup))
end with

with Sheets("sheet2") 'sheet you want printed
for each rng in rngStores
.range("B1").Value = rng.value 'store number cell address
.printpreview
'.printout 'remove the apostrophe when this is working
next rng
end with
end sub
--
HTH...

Jim Thomlinson


"ChuckF" wrote:

I have one worksheet which has a store list. It contains store
numbers, address, city, state and so on and so on.

On a separate worksheet I have a form that needs to be filled out by
each store. On this tab I have several vlookup's to pull the
information from the other.

I would love if I could hit a button, and have the sheet replace the
store number on the second sheet with the next store number, print, and
then move to the next store number, print...so on and so on.

Does anyone know an easier way to do this, other then me manually
entering the store numbers and hitting print?

Any help would be appreciated.

Thanks!