Okay, now that that part works, what is the syntax to bring in the addresses of the calcualted result and the changing cell. I tried the following but got an error:
Range("B1").value.GoalSeek Goal:=Range("D1").Formula, ChangingCell:=Range("A1").value2