VBA GoalSeek not Calculating

[egoosen3]

Hi

I have a spreadsheet where I run this code

Sub Solve_Cover()
'
' Solve_Cover Macro
'


Application.Calculation = xlCalculationAutomatic
With Application
.MaxIterations = 100
.MaxChange = 0.1
End With



Range("P13").GoalSeek Goal:=1.2, ChangingCell:=Range("AW13")


End Sub

the sheet is on automatic calculation, when i run the code the goal is not chanmging ( sheet does not calc)
Any suggestions

 

[joeu2004]

Works fine for me. But you give us no information to suggest that you should expect to see a change.

You say that "the goal is not changing". Do you get a VBA error? If so, what error?

Before you run the macro, what is in P13 and AW13?

AW13 should not contain a formula; usually, it should be empty.

P13 should contain a formula that depends on AW13 directly or indirectly. Provide sufficient details (e.g. formulas in other cells) to demonstrate the dependency that P13 has on AW13.

Consider adding the following statement before performing GoalSeek:

ActiveSheet.EnableCalculation = True

Unless you want Goal Seek to use a value in AW13 as the starting point, add the following statement before performing GoalSeek:

Range("aw13").ClearContents

Finally, I am surprised that you set Application.MaxChange to 0.1. The default is 0.001. Unless you want to experiment with less precision, I suggest that you use 0.001 or better. (0.00001 is better for my example formula in P13.)

In any case, consider doing the following:

' before changing Iteration Parameters
oldMaxIterations = .MaxIterations
oldMaxChange = .MaxChange

' after performing GoalSeek:
Application.MaxIterations = oldMaxIterations
Application.MaxChange = oldMaxChange