Dear Dana DeLouis,
What does (1) mean in Sub Demo()
Dim sht
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
sht.Activate
' Solver here...
Next
End Sub?
"Dana DeLouis" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: ...
How to repeat the macro for selected sheets in a Workbook?

Hi. That was for all sheets. Would any ideas here help for selected
sheets?

Sub Demo()
Dim sht
For Each sht In ActiveWorkbook.Windows(1).SelectedSheets
sht.Activate
' Solver here...
Next
End Sub

Sub Demo2()
Dim sht
For Each sht In Array("Sheet1", "Sheet3", "Sheet5")
Worksheets(sht).Activate
' Solver here...
Next
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Dana DeLouis.
Does your code repeats for all worksheets in a workbook? I wrote "How to
repeat the macro for a contiguous range of sheets (not all sheets) in a
Workbook?" How to repeat the macro for selected sheets in a Workbook?
"Dana DeLouis" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ: ...
Not sure, but see if there are any ideas here that can help.
If not, please post back. :)

Sub Demo()
Dim Sht As Worksheet
For Each Sht In ActiveWorkbook.Worksheets
Sht.Activate
SolverReset
SolverOk "J16", 1, , "F4:I12"
SolverSolve True
Next Sht
End Sub

--
HTH. :)
Dana DeLouis
Windows XP, Office 2003


"Dmitry" wrote in message
...
Thanks Nigel!
How to repeat the macro for a contiguous range of sheets in a
Workbook?
I
call the range contiguous because the range sheets tabs are
contiguous
in
the Workbook.
How to make the macro close the Solver Results window?
"Nigel" ÓÏÏÂÝÉÌ/ÓÏÏÂÝÉÌÁ × ÎÏ×ÏÓÔÑÈ
ÓÌÅÄÕÀÝÅÅ:
...
Solver is not recognised by the standard Excel object model, add a
reference
to SOLVER in your VB Editor.

Goto VB Editor (Alt-F11) , select Tools-References then check the
SOLVER
option.- the SOLVER add in must be installed for this to be visible.

--
Cheers
Nigel



"Dmitry" wrote in message
...
Hello
I receive:
"Microsoft Visual Basic
Compile error:
Sum or Function not defined" after I have run a macro. I recorded
the
macro.
The macro code is:
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 24.03.2006 by Dmitry Kopnichev
'
'
Range("J16").Select
SolverOk SetCell:="$J$16", MaxMinVal:=1, ValueOf:="0",
ByChange:="$F$4:$I$12"
SolverSolve
End Sub
All recorded operations work by itself. How to make the macro run
the
operations?