Goal Seek in VBA

Hello All,

I'm trying to create a macro that will perform Goal Seek. I have the following code so far:

Public Sub Goal_Seek()

Application.Worksheets("Sheet3").Range("Test1").GoalSeek _
    Goal:=0, _
    ChangingCell:=Worksheets("Sheet3").Range("Test2")


End Sub

When I run it, however, I receive the "Run-time error '1004': Application-defined or object-defined error." Any help would be greatly appreciated.

Thanks!
Joe