Macro Atingir Meta

Pessoal alguém pode me ajudar com essa dúvida.

Estou fazendo uma macro de atingir meta, porem aonde eu vou buscar o valor é em outra ABA e está dando erro, segue o código.

Range(“AB9”).GoalSeek Goal:=Sheets(“Simulador”).Select_Range(“E26”).Value, ChangingCell:=Range(“X9”)

Oi, tudo bem?

Eu tentaria sem esse Select_Range aí, iria direto pro Range. A nomenclatura após o Sheets é direto Range, não teria o Select. Ficaria assim:

Range(“AB9”).GoalSeek Goal:=Sheets(“Simulador”).Range(“E26”).Value, ChangingCell:=Range(“X9”)

Deu certo?

Roberto estou bem e vc
estou com duvida eu preciso fazer atingir metas em varias linhas. mas está com erro.

Eu estou fazendo essa macro, aonde eu estou errando?

’ Preços Macro

Application.ScreenUpdating = False

Dim MargemDesejada As Double
MargemDesejada = Range(“E26”).Value
Range(“AB5”).Select

While ActiveCell.Value <> “”

'On Error Resume Next
Sheets("Cálculo Varejista").Range("AB" & activecell.Row)activecell.GoalSeek Goal:=Sheets("Simulador").MargemDesejada _
, ChangingCell:=Sheets("Cálculo Varejista").Range("X" & activecell.Row)

ActiveCell.Offset(1, 0).Select
Wend

End Sub