Pessoal, boa noite! Tenho o seguinte cód de atingir meta:

Sub Simula_IncENV()
Range("N101").GoalSeek Goal:=Range("Y9").Value, ChangingCell:=Range("Y5")
End Sub

Gostaria agora de substituir o "N101" do código, pelo endereço que contem numa determinada célula. Por ex: o conteúdo da A1 ( que é estou deixando o endereço dinamico ), poderia ter esse "N101" mesmo ou P101, Q101,Z101 etc...

Alguém poderia me ajudar como consigo fazer essa adequação?

Obrigado desde já!

Cleto