Hi,

I am trying to create a macro that allows me to:
1) Unprotect worksheet
2) Run solver (criteria is already defined and stored in solver)
3) Protect worksheet.

I recorded a macro to do this and have added SOLVER to my VBA preferences
but am still receiving an error when I run the macro. My code is below. Any
guidance would be much much appreciated.

Sub optimize()
'
' optimize Macro
' This allows you to unprotect the worksheet, run solver, and re-protect the
workshet.
'

'
ActiveSheet.Unprotect

SolverOk(SetCell:="$K$82",MaxMinVal:="1",ValueOf:= "0",ByChange:"$B$65:$I$65")
SolverSolve
userFinish = True
ActiveWindow.SmallScroll Down:=51
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingColumns:=True, AllowSorting:=True,
AllowFiltering:= _
True, AllowUsingPivotTables:=True
End Sub