Excel VBA GoalSeek

Hi Fabio

I've tried two different ways using cells and range names.
But it doesn't seem possible not by assigning a variable to the Goalseek method.

Cell B1 is the Raw temp and contains the formula = B2/1.5
Cell B2 is a blank cell for the Scaled temp

Sub Goalseek()
' Goalseek with cells

Sheets("Sheet1").Cells(1, 2).Goalseek Goal:=50, ChangingCell:=Sheets("Sheet1").Cells(2, 2)

MsgBox "The Scaled temperature for 50 degrees is " & _
Sheets("Sheet1").Cells(2, 2).Value
End Sub

Sub Goalseek2()
' Goalseek with range names

Sheets("Sheet1").Range("Raw").Goalseek Goal:=50, ChangingCell:=Sheets("Sheet1").Range("Scaled")

MsgBox "The Scaled temperature for 50 degrees is " _
& Sheets("Sheet1").Range("Scaled").Value

End Sub

Another approach might be to defining a range variables.
Let me know if you have any success, thanks.

Regards
Doug Dunn
Best STL

Hi Fabio

I carn't see a way of using GoalSeek without refering to cells.
If I come across a way I will let you know.

Regards
Doug