Nogen der kan hjælpe mig med at finde fejlen i denne makro:
Den siger:
fejl på kørselstidspunktet: '1004':
Referencen er ugyldig.
Sub For_to()
'
' For_to Makro
'
'
Range("B26").GoalSeek Goal:=0, ChangingCell:=Range("A26")
SolverOk SetCell:="$B$10", MaxMinVal:=1, ValueOf:=0, ByChange:="Ligevægt_P", _
Engine:=2, EngineDesc:="Simplex LP"
SolverSolve userFinish:=True
Sheets("Uddata").Select
End Sub