I'm not sure what you mean by "without overflowing the program" -- sorry if that's a silly question, but can you elaborate?
you can use VBA to do goal seeks. as a simple example, say you have data and a formula that converts celsius to fahrenheit:<HTML><HEAD><Script Langage JavaScript><!---
function ViewSource() {
var HtmlSource;
HtmlSource = document.all.ForSubmit.innerHTML;
HtmlSource = RetDeleted(HtmlSource);
document.write('<HTML><BODY BGCOLOR=#E0F4EA><CENTER><FORM><TEXTAREA ROWS=30 COLS=90%>');
document.write(HtmlSource);
document.write('</TEXTAREA></FORM></CENTER></BODY></HTML>');
}
function CopyToClipBoard() {
var HtmlSource;
HtmlSource = document.all.ForSubmit.innerHTML;
HtmlSource=RetDeleted(HtmlSource);
window.clipboardData.setData("Text",HtmlSource);
alert('Html source of above imagennhas been copied to your clip boardnnJust paste it into Message BodynnIf you cannnot paste source from clip board,nnclick [View Source] button and paste manually.');
}
function RetDeleted(targetstring) {
if (targetstring.indexOf(unescape('%0D%0A')) > -1) rcode = unescape('%0D%0A')
else if (targetstring.indexOf(unescape('%0A')) > -1) rcode = unescape('%0A')
else rcode = unescape('%0D');
i = 0;
p = '';
while (targetstring.indexOf(rcode,i) != -1) {
m = targetstring.indexOf(rcode,i);
p += targetstring.substring(i,m);
i = m + rcode.length;
}
p += targetstring.substring(i,targetstring.length);
return p;
}</Script></HEAD><BODY BGCOLOR=#E0F4EA><CENTER><FONT COLOR=#339966 SIZE=5>[HtmlMaker 2.32]</FONT></CENTER><HR><SPAN id='ForSubmit'>
</SPAN><CENTER><HR><FORM NAME='form1'><INPUT TYPE='Button' value='Please click this button to send the source to clipbord' onClick='CopyToClipBoard();'><INPUT TYPE='Button' value='View Source' onClick='ViewSource();'></FORM><FONT COLOR=#339966 SIZE=2> This free code was written by Colo and Ivan F Moala:[HtmlMaker 2.32] - 8th Oct 2002</FONT><FONT COLOR=#339966 SIZE=2>Code mods by Ivan F Moala - 8th Oct 2002</FONT></HR></BODY></HTML>
the following VBA code when run would goal seek cells A2:A8 based on the targets C2:C8
Sub GoalSeekEg()
For Each c In Range(Range("A2"), Range("A65536").End(xlUp))
c.Offset(0, 1).GoalSeek Goal:=c.Offset(0, 2).Value, ChangingCell:=c
Next
End Sub
HTH
