Yes. Before the code you have now insert Sheets("Sheet2").Activate or
Sheets("Sheet2").Select. Then repeat the code but replace "Sheet2"
with "Sheet3". If you plan to expand to several worksheets, then embed
the Solver code in a loop.