Goal Seek multiple rows - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

Goal Seek multiple rows

eureka18eureka18 Posts: 1Member
Hi everyone,

I need to make a vba macro that does a goal seek function over rows in which the goal value is found in cell M1. However, some of the rows are empty and it needs to skip these rows. Therefore I made the following code:

[code]
Sub goalseek()
For Each cll In Range("P197:P7127")
If cll.Value <> "" Then cll.goalseek Goal:=($M$1), ChangingCell:=cll.Offset(0, 1).Value
Next cll
End Sub
[/code]

However, the code highlights yellow on the following part when I run it.

[code]cll.goalseek Goal:=($M$1), ChangingCell:=cll.Offset(0, 1).Value[/code]


What could be the problem with my code?

Best regards,



Eureka18


Sign In or Register to comment.