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

Hi Dmitry,

Try something like:

'=============>>
Public Sub Tester()
Dim SH As Worksheet
For Each SH In ActiveWindow.SelectedSheets
With SH
Application.Goto .Range("J16")
'Your Solver code
End With
Next SH
End Sub
'<<=============


---
Regards,
Norman



"Dmitry" <kopn@bk.ruDelete> wrote in message
news:%23U0zFlxUGHA.4976@TK2MSFTNGP11.phx.gbl...
> 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. I will try.
"Norman Jones" <normanjones@whereforartthou.com> сообщил/сообщила в новостях
следующее: news:ePy9cMyUGHA.1572@tk2msftngp13.phx.gbl...
> Hi Dmitry,
>
> Try something like:
>
> '=============>>
> Public Sub Tester()
> Dim SH As Worksheet
> For Each SH In ActiveWindow.SelectedSheets
> With SH
> Application.Goto .Range("J16")
> 'Your Solver code
> End With
> Next SH
> End Sub
> '<<=============
>
>
> ---
> Regards,
> Norman
>
>
>
> "Dmitry" <kopn@bk.ruDelete> wrote in message
> news:%23U0zFlxUGHA.4976@TK2MSFTNGP11.phx.gbl...
> > 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
> >
> >
>
>