Hello,

I am very new to VBA and I need some help.

My situation is that, suppose I am working on sheet2, I have an equation in cell B1 which is dependent on the values in cell A1,A2,A3. I want to solve for the value in cell A3 which will make the equation (B1) become zero. I already found out that I could do it by using goal seek; however, I would also like to have the cell A3 changing automatically, to satisfy the equation, whenever I adjust the values in cell A1 and A2. Moreover, the values in my A1 and A2 have to be input in another worksheet. ie. A1=sheet1!F1 and A2=sheet1!F2.

I found this code 
Private Sub Worksheet_Change(ByVal Target As Range)
     Range("B1").GoalSeek Goal:=0, ChangingCell:=Range("A3")
 End Sub
Using the code above, when I change the values in cell F1,F2 in sheet1, the value in cell B1 in sheet2 changes but the value in cell A3 sheet2 does not automatically change. I have to double click cell B1 and press Enter for goal seek to work and show the result in cell A3 (and then the value in cell B1 become 0), which is what I need.

Does anyone know how can I fix the code above so that when I adjust the cells F1 and F2 in sheet1 then cell A3 in sheet2 automatically change and make B1 become 0?
Unfortunately I cannot use Macros since the model I'm working on will be used in a macro-disabled computer.

Thank you very much for your help and sorry for my bad English