How to make solver solve for selected cells

I see you thread is marked "Solved" if it really is so prehaps you could upload the solution.

If this was a mistake i.e. your problem is not solved you must unmark your thread in order to get help. Check under thread tools if you can remove the solved setting. If not you must ask a "Forum Guru" or higher to help you.

Alf

Here is the solution:

Sub SelectedCells()

Range("C2").Resize(Columns("C").Find(What:="*", After:=Range("C1"), LookIn:=xlValues, SearchDirection:=xlPrevious).Row - 1).Select

SolverReset
Solveradd Cellref:=Selection.Address, Relation:=3, formulatext:="1"
SolverOk SetCell:="N4", MaxMinVal:=3, Valueof:="0", ByChange:=Selection.Address
SolverSolve userFinish:=True

End Sub

Thanks for adding the solution to your problem

Alf