VBA Code for Goal Seek to Run Automatically

[srand]

I have a couple of worksheets that have goal seek already performed on 20 target cells (for each worksheet). I did this manually, without a macro (since I'm absolutely horrible at all of this).

Now from what I can tell, I need a code to add to the worksheet module in order to make sure that the goal seek updates itself whenever I change a value in the formula of the target cell.

what IS that code?! I can't understand the codes some people have put up, so I have no idea what to do.

Target Cell: M21:M42
Changing Cells: N21: N42

 

[srand]

Okay I have a code but it doesn't work. What's wrong with it?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bSuccess As Boolean
On Error Resume Next
bSuccess = Range("M21:M42").GoalSeek(0, Range("N21:N42"))
On Error GoTo 0
If Not bSuccess Then
MsgBox "Goal Seek Failed for Cell ""N21:N42""!"
End If
End Sub

I know it has something to do with the ranges but I don't know how to change it.

 

[VoG]

Try

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("M21:M42")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.GoalSeek goal:=0, changingcell:=Target.Offset(, 1)
Application.EnableEvents = True
End Sub

 

[srand]

That didn't work