Microsoft Visual Basic Error 400

[khwaja]

I am using the following code to automate goal seek with an assigned button. Each time I tried to run it I get an error with big red X with 400. Any idea how to fix this?

Sub GoalSeek1_Click()
Range("E22").GoalSeek Goal:=Range("6000").Value, ChangingCell:=Range("D6")
End Sub

 

[Joe4]

This is an invalid range reference. You are missing the column part of the cell address.

Range("6000")

 

[khwaja]

Thanks a lot for your time. I have now updated the formula as under to get the value from a cell. I have amended it a bit.

Sub GoalSeek1_Click()
Range("E22").GoalSeek Goal:=Range("B22").Value, ChangingCell:=Range("D6")
End Sub

But I run it I get runtime error 1004 Reference isn't valid.

 

[Joe4]

Sorry, I hae been away for a few days.

Can you provide me with what is in cells E22, B22, and D6?

 

[khwaja]

Not a problem at all. Appreciate you coming back. I think you are very clever because you knew what silly users like are usually up to. As you probably expected, I had the wrong cell refs. It is now working well. Very grateful and apologies for wasting your time.

 

[Joe4]

You are welcome. Glad you got it all figured it out.