Primeiro, suponho que você esteja usando o VBA. Se esse não for o caso, isso não fará muito sentido.
Recomendamos que você revise este post que discute desafios usando o Solver no VBA.
Para usar referências para configurar o Solver (por exemplo, SetCell: =), descobri que isso funciona, enquanto a maioria dos outros métodos não.
Set SetRng = Sheets("Sheet2").Range("A1")
SetAddress = Split(SetRng.Address(external:=True), "[")(0) & Split(SetRng.Address(external:=True), "]")(1)
SolverOK SetCell:=SetAddress
Onde SetAddress é Dim'd como uma string.