How to repeat a code for selected sheets (or a contiguous range of sheets) in a Workbook?

For each ws in ActiveWorkbook.Sheets
ws.Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve UserFinish:=True

Next

"Dmitry" wrote:

> Hello
> How to repeat a code for selected sheets (or a contiguous range of sheets)
> in a Workbook?
> The code is:
> Range("J16").Select
> SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> ByChange:="$F$4:$I$12"
> SolverSolve UserFinish:=True
>
>
>

Thanks Viquar for replying.
Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets? I
wrote "How to repeat a code for selected sheets (or a contiguous range of
sheets) in a Workbook?", not all worksheets.
"Viquar" <Viquar@discussions.microsoft.com> сообщил/сообщила в новостях
следующее: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> For each ws in ActiveWorkbook.Sheets
> ws.Range("J16").Select
> SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> ByChange:="$F$4:$I$12"
> SolverSolve UserFinish:=True
>
> Next
>
> "Dmitry" wrote:
>
> > Hello
> > How to repeat a code for selected sheets (or a contiguous range of
sheets)
> > in a Workbook?
> > The code is:
> > Range("J16").Select
> > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > ByChange:="$F$4:$I$12"
> > SolverSolve UserFinish:=True
> >
> >
> >

Maybe...

For each ws in ActiveWindow.selectedSheets

Dmitry wrote:
>
> Thanks Viquar for replying.
> Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets? I
> wrote "How to repeat a code for selected sheets (or a contiguous range of
> sheets) in a Workbook?", not all worksheets.
> "Viquar" <Viquar@discussions.microsoft.com> сообщил/сообщила в новостях
> следующее: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> > For each ws in ActiveWorkbook.Sheets
> > ws.Range("J16").Select
> > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > ByChange:="$F$4:$I$12"
> > SolverSolve UserFinish:=True
> >
> > Next
> >
> > "Dmitry" wrote:
> >
> > > Hello
> > > How to repeat a code for selected sheets (or a contiguous range of
> sheets)
> > > in a Workbook?
> > > The code is:
> > > Range("J16").Select
> > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > ByChange:="$F$4:$I$12"
> > > SolverSolve UserFinish:=True
> > >
> > >
> > >

--

Dave Peterson

Thanks. I will try.
"Dave Peterson" <petersod@verizonXSPAM.net> ???????/???????? ? ????????
?????????: news:442A6E59.E12244DD@verizonXSPAM.net...
> Maybe...
>
> For each ws in ActiveWindow.selectedSheets
>
> Dmitry wrote:
> >
> > Thanks Viquar for replying.
> > Does "For each ws in ActiveWorkbook.Sheets" repeats for all worksheets?
I
> > wrote "How to repeat a code for selected sheets (or a contiguous range
of
> > sheets) in a Workbook?", not all worksheets.
> > "Viquar" <Viquar@discussions.microsoft.com> сообщил/сообщила в новостях
> > следующее: news:2FDA40AD-050E-4547-8B5D-D12CC54BDA48@microsoft.com...
> > > For each ws in ActiveWorkbook.Sheets
> > > ws.Range("J16").Select
> > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > ByChange:="$F$4:$I$12"
> > > SolverSolve UserFinish:=True
> > >
> > > Next
> > >
> > > "Dmitry" wrote:
> > >
> > > > Hello
> > > > How to repeat a code for selected sheets (or a contiguous range of
> > sheets)
> > > > in a Workbook?
> > > > The code is:
> > > > Range("J16").Select
> > > > SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
> > > > ByChange:="$F$4:$I$12"
> > > > SolverSolve UserFinish:=True
> > > >
> > > >
> > > >
>
> --
>
> Dave Peterson