Hi,


I have the macro named SOLVER, when I call this macro with the sub routine
MIX, the Compile error occurred with massage "Expect variable or procedure,
not project"



Both macros are given below,

What can be possible mistake,






Sub SOLVER()
Dim StoppedFeederColor As Long
Dim RunningFeederColor As Long
StoppedFeederColor = RGB(150, 150, 150)
RunningFeederColor = RGB(0, 0, 0)
With ThisWorkbook.Worksheets("5 Comp Mix")
Display_off

.Select
SolverOk SetCell:="$t$37", MaxMinVal:=2, ValueOf:="0",
ByChange:="$k$63:$k$67"
solverSolve UserFinish = False
SolverFinish


End With
ThisWorkbook.Worksheets("MainBackground").Select
Display_on


With ThisWorkbook.DialogSheets("MainDlg")
For i = 1 To 5
For j = 1 To 5
If ThisWorkbook.Worksheets("5 Comp Mix").Range("TonsFeed") _
.Cells(i).Value < AlmostZero
Then
.TextBoxes((i - 1) * 5 + j).Font.Color =
StoppedFeederColor
Else
.TextBoxes((i - 1) * 5 + j).Font.Color =
RunningFeederColor
End If
Next j
Next i
End With

End Sub

It may not solve (pun intended : ) your problem, but try using a different
name than "Solver" for your macro / subroutine. Excel comes with a Solver
add-in and there might be some confusion caused by that.

Again, not a high possibility, but an easy, quick thing to check.

James


"emilija" wrote in message
...
Hi,


I have the macro named SOLVER, when I call this macro with the sub routine
MIX, the Compile error occurred with massage "Expect variable or
procedure,
not project"



Both macros are given below,

What can be possible mistake,






Sub SOLVER()
Dim StoppedFeederColor As Long
Dim RunningFeederColor As Long
StoppedFeederColor = RGB(150, 150, 150)
RunningFeederColor = RGB(0, 0, 0)
With ThisWorkbook.Worksheets("5 Comp Mix")
Display_off

.Select
SolverOk SetCell:="$t$37", MaxMinVal:=2, ValueOf:="0",
ByChange:="$k$63:$k$67"
solverSolve UserFinish = False
SolverFinish


End With
ThisWorkbook.Worksheets("MainBackground").Select
Display_on


With ThisWorkbook.DialogSheets("MainDlg")
For i = 1 To 5
For j = 1 To 5
If ThisWorkbook.Worksheets("5 Comp Mix").Range("TonsFeed")
_
.Cells(i).Value < AlmostZero
Then
.TextBoxes((i - 1) * 5 + j).Font.Color =
StoppedFeederColor
Else
.TextBoxes((i - 1) * 5 + j).Font.Color =
RunningFeederColor
End If
Next j
Next i
End With

End Sub