See below my Sig line --
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
(e-mail address removed)
www.pcdatasheet.com
Run Excel Solver From Access
Private Sub cmdSolver_Click()
Dim objExcel As Excel.Application
Set objExcel = CreateObject("Excel.Application")
' Opens the add-in, which is in the Analysis folder of the
' Excel Library Directory.
objExcel.workbooks.Open (objExcel.Application.librarypath & _
"\Analysis\solver.xla")
' Runs the AutoOpen macro in the add-in
SolverOk SetCell:="$C$24", MaxMinVal:=2, Valueof:="0",
ByChange:="$C$8:$C$15,$H$4"
SolverSolve UserFinish:=True
objExcel.Quit
Set objExcel = Nothing
End Sub