I'm just curious. If you unload Solver, and then re-load, will that work?

Sub SolverInstall()
'// Dana DeLouis
Dim SolverPath As String
Dim wb As Workbook

SolverPath = Application.LibraryPath & "\SOLVER\SOLVER.XLA"

If Dir(SolverPath) = vbNullString Then
MsgBox "SOLVER.XLA not in Library Path"
Exit Sub
End If

On Error Resume Next
' Solver will have Focus if opened:
' So, remember ActiveWorkbook (adjust as needed)...
Set wb = ActiveWorkbook

AddIns("Solver Add-In").Installed = False
'// We remembered ActiveWorkbook before Solver gets Focus...
AddIns("Solver Add-In").Installed = True

wb.VBProject.References.AddFromFile SolverPath
wb.Activate
End Sub

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


<snip

"Defoes Right Boot" wrote in
message ...
Hi Dana

This has me confused now! Your macro seems to work fine but having run it
when I try and work solver on another machine it still says it can't find
it.

This is even though when stepping through your macro, when hovering over
"If
Not AddIns("Solver Add-In").Installed" it clearly says that evaluates to
True.

I think I may have to do the solving manually instead as it's not a
hugely
complex solver scenario!

Thanks for your help anyway...

Phil

<snip