Goal Seek multiple rows

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:

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

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,


Sign In or Register to comment.

Howdy, Stranger!

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